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Z nadchodzących Ostów wynika Jasno, 
ze TA zadomowiły się w Waszych domach 
i sercach. Coraz częściej powtarzają się 
prośby o zalegle numery lub o przypomnie¬ 
nie szczególnie użytecznych programów 
Dziś przypominamy Zgrywusa+. w nastę¬ 
pnym numerze powtórzymy COS, na któ¬ 
rego brak uskarża się wiele osób. 

Tymczasem niegospodarność RU- 
CHu, naszego głównego kolportera, 
zmusiła nas do kolejnego podniesienia 
ceny TA będą Jednak droższe tylko 
w punktach sprzedaży RUCH Cena 
prenumeraty pozostaje bez zmian 
(także pensje pracowników redakcji 
pozostały niezmienione) 

Redakcja TA prosi o kontakt wszy 
stkieh zaintereresowanych pośrednie- 
lwem w sprzedaży naszego pisma. 
Zróbmy razem interes! 

Kochani prenumeratorzy! wypełniajcie 
starannie przekazy. Zdarza się że otrzy¬ 
mujemy pieniążki bez adresu, bez nazwi¬ 
ska lub nabazgrane tak nieczytelnie, źe 
tylko siąść l płakać Warto tez wypełnić 
OBA odcinki, zabierane przez pocztę po¬ 
nieważ to, który z nich dotrze do nas, jest 
chyba rozstrzygane w drodze losowania 

UWAGA' Zmieniliśmy w tym roku 
wydawcę Przy dokonywaniu wpłat 
prosimy więc uwzględnić zmianę na¬ 
zwy l numeru konta bankowego No¬ 
wy wydawca przejmuje wszystkie 
zobowiązania Agencji "ALBATROS" 

Redofóop 
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AB... 


BASIC czyli o tym, 
takim dobrym kumplem 
jest QA 

Często asembler bywa wykor/y 
stywany do tworzenia krolklch pro 
gramów maszynowych, które dolą 
cza się następnie do programu 
w BASIC u Wielu programistów 
korzysta z tej możliwości, bo rożni 
ca w szybkości działania między 
programem w BASIC-u a progra 
mem w Języku maszynowym Jest 
oszałamiająca. Rozkazy maszyno- 


END 

Nie Jest chyba dla nikogo taje¬ 
mnicą. ze $600 i 1536 oznaczają tę 
samą liczbę Najprostszy program 
musi się składać co najmniej 
z dwóch rozkazów, a nie z samego 
RTS bo BASIC przed przekaza 
ulem sterowania naszemu progra¬ 
mowi umieszcza na stosie oproez 
adresu powrotu Jeszcze |eden bajt 
który należy usunąć przy pomocy 
rozkazu PLA Ten program można 
zatytułować "Nie rob nic". 


? USR(1536) 

w wyniku czego BASIC wyświetli 
liczbę zwracaną przez tę funkcję 
W najprostszym przypadku (Jak 
ten) będzie to "echo", czyli adres 
wywoływanego programu Jest on 
na wstępie umieszczany w słowie 
$D4 (rejestr FRO), co stanowi efekt 
uboczny transkodowanla podanego 
adresu Po zakończeniu wykonywa 
nia programu maszynowego BASIC 
rozumie zawartość słowa FRO jako 
rezultat funkcji USR Aby przeka 
zać tą drogą Jakąś Istotną wlado- 




YY 



UlAtU AIAlil Al/Al 


we pozwalają także zrealizować 

prosto takie zadania, które w BA 
SIC-u są trudne do wykonania lub 
wręcz niemożliwe Wywołanie pro¬ 
gramu maszynowego umo/Ilwla 
funkcja BASIC-a 

USR{ adres ) 

która zwraca wartość liczbową 
z zakresu 0 .65535 adres wskazu 
je miejsce w pamięci, gdzie znajdu 
Je się program maszynowy Należ.y 
podkreślić, że jest lo funkc|a, a nie 
rozkaz, nie może więc stać sama. 
lecz tylko jako wyrażenie będące 
argumentem Jakiegoś rozkazu, np 

X=3*USR(1536)+2 

Oczywiście musisz wpierw za¬ 
dbać, by pod wskazanym adresem 
(tutaj 1536) znalazł się pożądany 
program maszynowy Do lego zada¬ 
nia można zatrudnić Quick As- 
sembler Z objęć Interpretera BA 
SIC-a przejdz więc do DOS u lub 
COS-u, pisząc 

DOS 

zachowawszy wcześniej ewentualny 
program w BASIC-u, ponieważ wy 
wołanie QA spowoduje Jego skaso 
wanie Uruchom QA 1 napisz taki 
program 

OPT %10101 


Wykonaj Asscmbly, aby umieścić 
ten krotki program w pamięci 
Opuść QA I wroe do BASIC a 
W normalnych systemach (takich, 
jak DOS 2 5 z CP. DOS XL. Sparla 
DOS. COS) służy do lego rozkaz 
CAR Program na szosie) stronie 
[łozostaje nienaruszony, ponieważ, 
ani DOS. ani BASIC nic korzystają 
z tego obszaru Najprostszy sposób 
wywalania naszego programu", to 


mosc. program powinien umieścić 
swoją liczbę w słowie FRO np.: 


FRO 

EQU 

$D4 

DLPTR 

EQU 

$230 


ORG 

$600 

DLP 

PLA 



LDA 

DLPTR 


STA 

FRO 


LDA 

DLPTR+1 


STA 

RTS 

fro+1 



ORG $600 

PLA 

RTS 
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Ten program ma za zadanie prze¬ 
kazać adres ‘display list" Rozkazy 
OPT 1 END dla uproszczenia poml 
jam, zakładając, ze każdy wie gdzie 
1 jak Je dopisać Zęby oszczędzić 
sobie czasu przy przechodzeniu 
z QA do BASIC-a, a zwłaszcza z po¬ 
wrotem. proponuję zrobić tak 

• 1 Ustawić w QA Setup/Memhl 
tak, aby rozmiar bufora wynosił 
ok. 2000 bajtów (to w zupełno¬ 
ści wystarczy dla naszych te¬ 
stów) Dla DOS-u 2 5 z CP może 
to być np $7000 

• 2 Umieścić tę samą liczbę 
w krótkim "programie": 

OPT %10101 
ORG 8 

DTA B ($FE ) 

ORG $2E7 
DTA A( $7000) 

END 

1 wykonać Assembly co spowo 
duje ustawienie systemowego 
wskaźnika MEMLO na podaną 
wartość oraz ustawienie ko¬ 
mórki WARMST, aby zapobiec 
znikaniu programu w BASIC-u 
Jeśli edytor zawiera Juz Jakiś 
program to ten można dopisać 
przed nim, gdyż rozkaz END 
odetnie’ całą resztę. Po 
asemblacjl można ten fragment 
usunąć, przywracając stary 
tekst do łask Kto ma w pamię¬ 
ci XLFrienda len może odpo 
Wiednie "póki* wpisać wglą- 
downlcą 

• 3. Przygotowany tekst programu 
dla USR a zasemblować, w wy 
niku czego QA umieści go na 
szóstej stronie, 

• 4. Ustawić adres Seiup/Run na 
$A000 Jest to adres startu In¬ 
terpretera BASIC-a 

• 5. Wykonać Run w wyniku cze 
go QA uruchomi BASIC Jako te 
stowany program* 

Po skończonej zabawi z BASIC-cm 
będzie można wrócić do QA rożka 
zem DOS Można też wielokrotnie 
przerywać pracę programu 
w BASIC-u kombinacją klawiszy 
SHIFT/BREAK (by np porównać 
efekty działania programu z te 
kstem w edytorze) 1 powracać do 
BASIC-a przez Run nie tracąc ani 
tekstu w QA. ani programu w BA 
SIG-u (miłośnikom MAC-a propo 


nuję wypróbowanie tej sztuczki 
w swoim asemblerze). 

Uwaga! Należy się powstrzymać od 
użycia klawisza RESET Można co 
prawda ponowni wykonać krok 2 
co pozwoli powrócić do BASIC-a, ale 
później mogą być kłopoty z rozkazem 
DOS 

Teraz wykonanie 
? USR(1536) 

powinno spowodować pojawienie 


się liczby 39968. Pod tym adresem 
znajduje się zwykle program AN 
TlC-u, czyli DL Wypróbuj to tak 

20 D=1:DL=USR(1536) 

25 FOR I—8-D TO D STEP (D-4)/3 
30 POKE DL,16*I:NEXT I 
35 D=8-D:GOTO 25 

Jeśli wszystko Jest dobrze, pro¬ 
gram wywoła miarowe ruchy ckra 
nu Można Je zatrzymać klawiszem 
BREAK 

Zamieszkać na zawsze 
w BASIC-u 

Byłoby niepraktyczne postępo¬ 
wać za każdym razem w opisany 
wyżej sposob Na ogół asembler 


stosuje się tylko na etapie tworze 
nla 1 poprawiania programu maszy 
nowego Potem wygodnie Jest umie 
śclc go na stałe w tekście BASIC 
owym Istnieją rozmaite sposoby 
umieszczenia danych programu 
maszynowego w wierszach progra 
mu w BASIC-u Oto Jeden z nich: 

50 ? "100 DATA “;:A=1536 
55 B=PEEK(A):? B; 

60 IF B— 96 THEN 7 s£ND 
65 7 :A=A+l:GOTO 55 

Wykonanie tego programu 


iGOTO 50) zaowocuje pojawieniem 
się wiersza DATA, zawierającego 
dane kodu maszynowego. Wystar¬ 
czy teraz wjechać na ten wiersz 
kursorem 1 nacisnąć RETURN by 
stał się częścią programu. Należy 
tylko Jeszcze dopisać rozkazy, któ¬ 
re przeniosą te kody z wiersza 
DATA na szóstą stronę 

10 FOR 1=0 TO 11:READ X 
15 POKE 1536+1,X:NEXT I 

(wiersze 50..65 nie są Juz potrzeb¬ 
ne) 

Ta metoda ma dwie wady Po 
pierwsze, ciąg cyfr 1 przecinków 
w DATA nie Jest Jeszcze progra 
mcm maszynowym lecz musi zo- 
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stać przekształcony w ciąg bajtów 
Po drugie, operacja przepisywania 
trwa długo (a w przypadku dużej 
liczby danych nawet bardzo długo) 

Znaczki-dziwaczki 

Można też umieścić dane maszy¬ 
nowe w BASIC-u w Inny sposob 

50 7 ”10 DIM X$( 12) :X$ =";:A=1536 
55 7 CHR$(34); 

60 B=PEEK(A):7 CHR$(27);CHR$(B); 
65 A=A+1:1F B<>96 THEN 60 
70 7 CHR$(34):END 

Zaakceptowanie powstałego 
w ten sposób wiersza przyłącza go 
do programu w BASIC-u (wiersze 
50 100 stają się niepotrzebne) 
Wiersz 15 należy usunąć Teraz 
nasz program maszynowy zawarty 
jest w zmiennej X$ W swej natu 
ralnej postaci Golowy do wykona¬ 
nia Bez potrzeby przenoszenia Ale 
gdzie to konkretnie Jest? Mówi 
o tym lunktja ADR0, która zwraca 
adres zmiennej w BASIC-u A więc 
wystarczy poprawić. 

20 D=1:DL=USR(ADR(X$ ) ) 

by nasz program przykładowy 
znów pląsał bez kłopotów. 

Ten sposob traktowania danych 
maszynowych ma dużo zalet 1 Jesz¬ 
cze więcej wad 

• Zalety, dane zajmują mniej miej¬ 
sca w tekście programu, nie wy 
magają przepisywania w docelo¬ 
wy obszar pamięci, dane kilku 
osobnych procedur nie kolidują 
ze sobą 

• Wady dane są mniej czytelne, 
program maszynowy prakiycz- 
nle znika po NEW. program za¬ 
wierający kody $9B (koniec 
wiersza) 1 $22 (cudzysłów) nie 
da się łatwo przedstawić w ten 
sposob 

Najpoważniejsza Jednak wada tej 
meUxly ujawnia się, gdy zdamy sobie 
sprawę, ze dla większości progra 
mow nie Jest obojętne, w którym 
miejscu pamięci się znajdują Inaczej 
mówiąc, do zastosowania tej techniki 
nadają się tylko takie programy, któ¬ 
rych kod nie za leży od wartości 
ORG. Takie programy nazywane by¬ 
wają przemleszczalnyml" Użycie do¬ 
wolnego rozkazu odwołującego się 
do wnętrza programu (JSR. JMP, 
czy nawet LDA) niweczy tę własci 
wość np. fragment 




JMP TUTAJ 
TUTAJ RTS 

NIE Jest przemlcszczalny. bo argu¬ 
ment rozkazu JMP w oczywisty 
sposob zależy <xl położenia progra¬ 
mu Natomiast równoważny (także 
p<xl względem długości) fragment 

CLC 

BCC TUTAJ 
TUTAJ RTS 

Jest przemlcszczalny. ponieważ 
asembler lłumaczy rozkaz skoku 
względnego zawsze' Jednakowo, nie¬ 
zależnie od położenia programu 
w pamięci 

Wobec: wymienionych niedogod¬ 
ności umieszczanie programów 
w stałych tekstowych należy zawsze 
poprzedzić głębokim namysłem. 
Z drugiej strony, z uwagi na dostę¬ 
pną w słowie FR0 Informację o po¬ 
łożeniu programu, zawsze da się go 
tak skonstruować, aby był przemle- 
szczalny 

Przekazywanie 

parametrów 

Dosc często oprcxv cxlebrania re¬ 
zultatu funkcji chcielibyśmy prze¬ 
kazać do niej parametry, które 
miałyby wpływ na jej działanie. Ty¬ 
powym przykładem są bardzo przy 
datne w programowaniu, nieobecne 
w ATARI BASIC u, bitowe operacje 
logiczne. Wywołanie funkcji AND 
dla dwcx'h argumentów zapiszemy 
przykładowo lak 

? USR(1536,X,1) 

To pozwoli stwierdzić, czy liczba 
X jest nieparzysta BASIC przekaże 
parametry (iraktowanc jak liczby 
16-bitowe bez znaku), wpychając Je 
kolejno na stos. od ostał u lego do 
pierwszego Autorzy BASIC a wpad¬ 
li przy tym na wielce dowcipny po¬ 
mysł. zęby zapamiętywać najpierw 
młodszy bajt. potem starszy, co 
uniemożliwia bezpośredni dostęp 
do parameirow Po umieszczeniu 
(1 zliczeniu) tych liczb BASIC kła¬ 
dzie na stosie Jeszcze jeden bajt, 
określający, ile Jest parametrów 
Ten właśnie* bajt równy 0, musieli¬ 
śmy zdejmować ze stosu w podpro¬ 
gramie wywoływanym przez 
USR(1536). gdzie nie było wcale 


parametrów Dopiero na spodzie, 
pod tymi wszystkimi danymi znaj¬ 
duje się adres powrotu dla rozkazu 
RTS Napisz 

DOS 

l Jesteś znów w QA, 

OPT %10101 
ORG $600 

Na wstępie godzi się sprawdzić, 
czy podano właściwą liczbę para¬ 
metrów, W przeciwnym wypadku 
cała praca na nic, bo program się 
na ogoł zawiesi (pomysł, dlaczego). 


BELL 

EQU 

$F556 



PLA 


zdejm liczbę 


TAX 




CPX 

#2 

czy 2 param? 


B£Q 

AMD 



BNE 

Q 

C)mp) 

FLUSH 

PLA 




PLA 



Q 

DEX 




BPL 

FLUSH 



JMP 

BELL 



W przypadku podania złej liczby 
parametrów nasza funkcja wrzas 
nie i wrcM-l do BASIC-a 

Teraz dopiero można się zabrać 
do wykonania właściwej operacji 
Będzie to lkx zyn logiczny dwu liczb 
16-bltowych Najwłasclws/ym miej 
scem przechowywania pośrednich 
wyników wydaje się rejestr FR0 


EQU 

$04 

PLA 


STA 

FR0+1 

PLA 


STA 

FR0 

PLA 


AMD 

FRO+1 

STA 

FRO+1 

PLA 


AMD 

FR0 

STA 

FRO 

RTS 


EMD 



PrzeJdz do BASIC-a (skacząc do 
adresu $A000) Wykonaj test, który 
upewni Cię. ze program działa do¬ 
brze: 

10 7 "Podaj liczbę": INPUT X 
20 1F USR(1536,X,1) THEN 7 "me"; 
30 7 "parzysta":GOTO 10 


Janus z B. Wiśniewski 
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FIU 


Program służy do wypełniania dowolnych, zamknię¬ 
tych obszarów, w dowolnym trybie graficznym ekranu 
I dowolnym kolorem Program oparty Jest na algoryt 
mle Smitha (wypełnia obszar liniami poziomymi) Wy¬ 
wołanie z. poziomu BASIC-a 

X=USR{ 1536, bufor ,x,y , kolor) 

• bufor adres wolnego obszaru 256 bajtów, w któ¬ 
rych program będzie odkładał potrzebne mu współ 
rzędne 

• x, y współrzędne nlezamalowancgo punktu we¬ 
wnątrz figury 

• kolor kolor wypełnienia 
Wykonywanie programu kończy się. gdy: 


• kolor rysowania będzie wynosić 0 (sprawdzany jest 
tylko ten przypadek, Jednak należy unikać kolorów 
które po wyświetleniu na ekranie przyjmą także ko¬ 
lor tła) 

• naciśnięty zostanie klawisz BREAK 

• komputer dojdzie do któregoś z brzegów ekranu - 
Jest to zabezpieczenie przed przypadkowym "niedo¬ 
mknięciem' figury 

• bufor ulegnie przepełnieniu 

• podane początkowe x y będą spoza przedziału do¬ 
zwolonego dla danego trybu graficznego 


MK 10 DIM A$<26) :A=1536 
TO 20 TRAP 60:READ A$:I=1:H=0:TRAP 20 
Ul 30 N=ASC(A$(I))—48:N=N—39*(N>9):1=1+1 
SA 40 X=16*X+N:H=1-H:IF H THEN 30 
DM 50 POKE A,X:X=0:A=A+1:GOTO 30 
YU 60 END 

YF 100 DATA 686885cc6885cb688556688555 
JW 110 DATA 6868855468688dfb02d00l60a9 
IiT 120 DATA 0085cd20ca£6208fflf0016020 
U«T 130 DATA ca£6208££ld00dc655a555c9££ 
QX 140 DATA d002c6561890ebe655d002e656 
DP 150 DATA a90085ce85cfc654208ff185d0 
A2 160 DATA e654e654208ff185dlc654a5d0 

YP 170 DATA £006a90085ce£0l£a5ced0lba9 
AZ 180 DATA 0185cea4cda55591cbc8a55691 
AZ 190 DATA cbc8c654a55491cbc8e65484cd 
OD 200 DATA a5dl£006a90085cf£01fa5cfd0 
FL 210 DATA Iba90l85c£a4cda5559IcbcSaS 
PZ 220 DATA 569Icbc8e654a5549Icbc8c654 
NE 230 DATA 84cd20ca£le655d002e65620ca 
CD 240 DATA £6208££ld0034c4706a4cd88bl 
KC 250 DATA cb855488blcb855688blcb8555 
JY 260 DATA 84cdc0fdf0034c260660 


• zostanie wypełniony c ały obszar 

• Jako punkt początkowy zostanie wskazany punkt 
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Dziś znów, odpowiadając na prośby zawarte w wielu 
listach, drukujemy "Zgrywusa Jest to ten sam pro¬ 
gram, który znamy z TA 6/91, z uwzględnieniem poprą 
wkl z TA 8/91 1 z prawidłowym kodem w wierszu 190 
Każdy czytelnik TA powinien posiadać ten program 
w swej kolekcji, wiele listingów drukowanych w TA 
składa się bowiem wyłącznie z wierszy REM 1 DATA 
(przykładem może byc ROBAL na stronach 30 31). 
Są to programy maszynowe, które przed użyciem trze¬ 
ba przekształcić do postaci pliku binarnego (kasetowe¬ 
go lub dyskowego). Do tego celu służy właśnie program 
zwany Zgrywusem 

Przepisany starannie Zgrywus h należy nagrać na ka¬ 
secie rozkazem LIST "C." lub na dyskietce za pomocą 
LIST "D ZGRYWUS LST”. Można (należy) go następnie 
dołączać do programów z DATAmi rozkazem ENTER 
"C:" z kasety lub ENTER *D ZGRYWUS LST” z dysklet 
kl. Po uruchomieniu programu rozkazem RUN należy 
odczekać kilka sekund az Zgrywus + się rozgrzeje, 
a następnie wybrać z przedstawionego menu żądany 
format pliku lub zakończenie działania. 

Zgrywus l- podc zas nagrywania pliku na kasetę 
umieszcza wydłużone przerwy mtędzyblokowc w miej¬ 
scach, gdzie zapisywany program będzie się inlcjallzo 
wał Dla wielu programów jest to warunek przeżycia 
Program zapisany Jako plik kasetowy nadaje się do 
uruchomienia pod kontrolą systemu COS (TA 1/91) 
natomiast w wersji Boot’ uruchamia się sam. przez 
włączenie komputera z naciśniętym klawiszem START 
(oraz przeważnie OPTION) Program zapisany na dys¬ 
ku można załadować spod (prawie) każdego DOS-u po 
dobnie Jak Inne programy maszynowe W formacie 
“Boot" Zgrywus + dołącza do oryginalnego pliku jeden 
dodatkowy rekord: zawarty w nim program steruje 
dalszym wczytywaniem pliku. 

Otrzymujemy sporadycznie listy, których autorzy 
uskarżają się na nieprawidłowe działanie Zgrywusa+. 
Ponieważ większość czytelników nie ma z nim żadnych 
problemów, więc sądzę, ze przyczyna leży w nietypo¬ 
wych warunkach pracy. Jeśli np przetwarzany listing 
Jest długi, a używany DOS pozostawia niewiele wolnej 


pamięci dla BASIC-a. to może jej po prostu zabraknąć. 
Inną przyczyną może być obecność krwiożerczego sy 
stemu "turbo". Testujemy drukowane programy w o- 
becnoscl DOS-u 2.5 z CP (był drukowany w TA 2/91) 
l wszystkie działają bez kłopotów Dlatego w listach 
z prośbą o pomoc należy opisać dokładnie kolejność 
wykonywanych czynności 1 rodzaj używanego systemu 


KI 

VI 

KU 

kr 

TP 

¥t 

u s 

HG 

PA 

DK 

KG 

OT 

ZR 

« 

tr 

OH 

FX 

OM 

EL 

HR 

XR 

JO 

ur 

TB 
RZ 
HI 
HR 
YU 
US 
AP 
PT 
HE 
PG 
¥M 
DO 
ML 
CD 
i fi 
TM 
UR 
RM 
F0 
BO 
EP 
30 
RS 
XV 

ue 

az 

UJ 

KU 

TF 

GR 

FI 

YU 

HZ 

6M 

FE 

HT 

KA 

TL 

VF 

E0 

KX 

RX 

TN 

CQ 

m 

AR 

as 

UY 

MU 

UP 
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30 

32 

34 


48 

56 

52 


2 REM 
4 REM 
6 REM 

8 REH _ ni i 

ie ? CHftfTl2Bi7 n Jgry3u5* Tr r^^^^^^^ 

12 HM M * i ? » C - 1 1 S (129) 

14 REiD-1536! SAU=1664! . * C - 2* 16 

16 CHD=I0CB*2:0UF=XOCB*4.SIZ=I0CB*B 
18 U5- , hhłO.Uęf: I-REA: TRAP 22 
28 REAB X POKE I,X:1=1*1:GOTO 20 
22 I=USRCREA.ADR(LSI,2801;LSC129)="" 
24 I=USRCREA,SAU,390) 

26 CNT~U5RCREA,ADR CMS),1000) 

28 M$CCKT«1»- ••• 

? :? “i. Fil* tforiut plikowy)" 

* “2. Boot csoMdziolny kasetowy) 1 ' 
’ "0. Ouit (wyjście z i»rograMU)" 

36 OPEfi t. . ""GET 81,X:CL0SE ttl 

38 IF K<48 HEN 30 

40 OM X 47 OSUB 70,42,52:GOTO 30 

42 G0SU8 56 5 XF C THEN 46 

44 A-ADR CM$):L=CNT:GOSU0 62:GOTO 50 

46 POKE SXZ,0-POKE IZ41.B 

I-U5RC U,ADR CM$),ADRCH$)4CNT1 
CL05E ttl: SOUND 0,0.0,0: RETURN 
FS="C:"*G05U6 58 
S4 A=ADR CLS)!1-120:GOSUB 62:GOTO 46 
56 t "Nazwa pliku "j:IMPUT F$ 

58 C=CF$C1,1)="C")*255 

60 OPEN ttl,8,C,F$:P0KE CMD, 11: RETURN 

62 I=INTCA/256):J=INTCL/256) 

64 POKE UF A-256WI P04E U H.I 
66 POKE 5IZ,L-256WJ;POKE SIZ*1,J 
68 I-USR CADR CU$) 161:RETURN 
70 END 

180 REH — READER —--- 

130 DATA 162,4,104,149,224,202,16,250 
120 DATA 232,134,212,134,213,165 136 
130 DATA 133,230,165,137,133,231,76 
146 DATA 15,6,56,165,230,101,232,133 
150 DATA 230,144,1,230,231 160,2,177 
160 DATA 230,133,232 198,232,160,0 
170 DATA 1 7,230,1'7,224,2 0,177,230 
180 EATO <8,54,22 225, 44,222,160 4 

190 DATA 177,230 201,1,208,36,160,5 
200 DATA 196,232,176,208,32,109,6,10 
210 DATA 10,10,10 133 228,32,109,6 5 
220 I ATA 228,129,226,230,226,208,2 
230 ATA 230,227,238,212,288,226,230 
240 DATA 213,280,222,165,212,5,213 
250 DATA 240 172 96,177,230,200,41 
260 (AHA 223,201,65,144,2,233,7,41,15 
270 DATA 96,EMD 

280 REM — LOADER - 

299 DATA 0001000750E4A20186090D040795 

300 DATA 0C9DE0028E4402863DCA10F08EE7 
310 DATA 02206E073044652C206E87852D25 
320 DATA 2CC9FFF0EE206E07852E206E078S 
330 DATA 2FA97F8DE202A9076DE302A52EC5 
340 DOTO 2CA52FES2D9010206E07302D8891 
350 DOTA 2tCE62CD0EAE62DD0E62063071890 
360 DOTA BA6CE202A93C8D02D36CE002A43D 
370 DATA CCIIA0290034C7AE4B90004E63DA0 
380 DATA 0160 

390 REM - SOUER —- 

400 DOTA A2846895E0CO10FA20CF063O6A85 
410 6>AIA F88SE420CF0685F985ES2SF8C9FF 
420 DATA F0EA20CF0685FA20CF06J$SFB20CF 
430 DA 0 06304AE6E4D002 ESAF0C5E40S 
440 DATO FBESE5B8EBA5FAC9E3D0C5ASFBC9 
458 DATO 02D0BFA98F853ED0B9A000A5E2C5 
460 DATA E0A5E3E5IT1B013B1E2E6E2D002E6 
470 DATA E3O43D998004C83005043DC88868 
480 DATA A210482056E46838263EC860 


Pomyślnych zgrywów! 
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>\M; ■ POMIAR 

. , I REGULACJA 

LL\44iJ temperatury 


J 


Zainspirowały mnie wejścia "pad 
dle" w komputerze. Wejścia te re¬ 
agują na zmiany podłączonc| do 
nich rezystancji Używając lerml 
stora uzyskamy zamianę tempera 
tury na rezystancję, którą zareje¬ 
strują wejścia paddla Zaslosowa 
łem lermlstor 47 kOhm Użycie In¬ 
nego termislora wymaga skalowa 
nla. Podłączamy lermlstor do wej¬ 
ścia pierwszego paddla Wkładamy 
go do naczynia z wodą ostrożnie, 
aby nie zanurzyć przewodów W na¬ 
czyniu umieszczamy także termo 
nuir Do komputera wprowadzamy 
program odczytu wartości paddla. 
na przykład: 

10 PRINT PADDLE(0):GOTO 10 

Zwiększając temperaturę wody. 
notujemy wskazania paddla 1 ter 
mometru. tworząc dwie tablice Po 
wpisaniu programu sterującego 
mamy gotowy elektroniczny termo¬ 
metr 

Wzbogaciłem go nieco, dodając 
regulator temperatury Po prze¬ 
kształceniu wejsc joysticków na 
wyjścia mogę sterować przekaźnl 
kłem włączającym lub wyłączają¬ 
cym grzałkę 


Sposob połączenia elementów 
pokazano na rysunku. Dla naszych 
celów wystarczy podłączenie prze 
kaźnlka do Jednego wyjścia, ale 
można ten układ rozbudować, do¬ 
łączając przekaźniki do pozosta¬ 
łych wyjść układu scalonego 

opt % 100101 


Ida dlptr 
sta stary 
Ida <dl 
sta dlptr 
Ida dlptr+1 
sta stary+1 
Ida >dl 
sta dlptr+1 

* odczyt paddla 
pocz ldx #0 
ptll Ida paddle 

emp tabl,x porównaj 

beq znal 

inx następny 

cpx <ile wszystkie? 

bne ptll następny 

beq pocz jeszcze raz 

* znaleziono w tablicy 
znal txa 

asl @ * *2 

asl @ *4 

tax 

* wyświetlenie wartości 


SELECT 

e qu 

%i0i 

Idy #0 

START 

e qu 

%H0 

ptl2 Ida temp,x 




sta ptrl,y 

in 

equ 

% 00000000 

inx 

out 

equ 

%miiiii 

iny 




cpy #4 

stary 

equ 

$f0 

bne ptl2 

reguł 

equ 

$f 2 





* regulacja temperatu 

paddle 

equ 

624 

ldx #1 wlacz 

dlptr 

e qu 

$230 

Ida reguł 




emp paddle 

kbcode 

e qu 

$d01f 

bcc stan temp.< 

porta 

e qu 

$d300 

ldx #0 wyłącz 

pactl 

e qu 

$d302 

stan stx porta 


org $8800 
próg equ * 

* ustawienie portu 

* joysticka na wyjście 

Idy #out 
jsr kier 

* ustawienie ekranu 



* ustawianie temperatury 
klaw Idy kbcode 

cpy #SELECT 
bne kiwi 
sta reguł 

* wyświetlenie ustawionej 

ldx #0 

ptl3 Ida ekrl,x 
sta ekr2,x 
inx 

cpx #4 
bne ptl3 

* koniec? 

kiwi cpy #START 
bne pocz 

* koniec 

Idy #m 
jsr kier 
Ida stary 
sta dlptr 
Ida stary+1 
sta dlptr+1 
jmp (10) 

* ustawienie kierunku 
kier Ida pactl 
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and t%11111011 
sta pactl 
sty porta 
ora #%00000100 
sta pactl 
rts 


* program ANTIC 
dl dta b($70) 
dta b($47) 
dta b($70) 
dta b($70) 
dta b($47) 
dta b($46) 
dta b($70) 
dta b($42) 
dta 

dta b($70) 
dta b(§42) 
dta b($41) 


,b($70),b($70) 
,a(ekrl) 
,b($06) 

,b($70), 
,a(ekr2) 
,a(ekr3) 
,b($70) 

,a(ekr4) 

',b($70) 
,b($06), 
,a(ekr5) 

#a(dl) 


b<$70) 

,b(ę70) 

,b($70) 


,b($70) 

b(§70) 


* obszar ekranu 

ekrl dta d' termometr ' 

dta d' ELEKTRONICZNY 

ekr2 dta d' ' 

ekr3 dta d' stopni Celsjusza ' 

ekr4 dta d* Program śluzy do pomiaru i regulacji 
dta d' temperatury w zakresie od 13 do 43 
dta d' stopni Celsjusza. W czasie pomiaru 
dta d' wciśnięcie klawisza +SELECT+ powoduje 
dta d' ustalenie regulowanej temperatury 
dta d' * HR.soft 1991 * ' 

efcrS dta d' Ustalona temperatura-brak 

ptrl egu ekr2+8 

ptr2 equ ekr5+28 

* tablica wartości paddla 
tabl dta b(09),b(10),b(11),b(12),b(13),b(14),b(15) 

dta b(16),b(17),b(18),b(19),b(20),b(21),b(22) 
dta b(23),b(24),b(25),b(26),b(27),b(28),b(29) 
dta b(30),b(228) 
ile equ *-tabl 




Marek Ruta 


* tablica do wyświetlania temperatury 
temp dta d'43. 039. 537. 535.533. 531.529.528.026.525.0' 
dta d'24.023.021.020.019.018.017.016.015.014.5' 
dta d'13.513.0brak' 


* adres uruchomienia 
org $2e0 
dta a(próg) 


end 


Od redakcji: 

Warto zauważyć, ze w tym sa¬ 
mym gnleźdzle dysponujemy Jesz 
cze Jednym wejściem paddle 
fpatrz TA 1/92), da się zatem wpro¬ 
wadzić dwa niezależne czujniki 
Można tez w analogiczny sposob 
podłączyć się do złącza drugiego 
Joysticka, dodając niezależny kom 
piet termlstory-przekaźniki 


Opisane urządzenie może służyć 
do sterowania grzałką w akwa¬ 
rium, agregatem zamrażarki, może 
tez byc bardzo pomocne przy do¬ 
mowej produkcji powiedzmy, wody 
destylowanej... 










Zmiana konta! PrenumeraTA 


Liczba egzemplarzy 
każdego numeru 

cena 1 
egzemplarza 

3-mles 

6-mles 

1 

8900 

26 700 

53 400 

2 

8300 

24 900 

49 800 

3 

8000 

24 000 

48 000 

4 

7 650 

22 950 

45 900 

5 do 9 

7300 

21 900 

43 800 

10 lub więcej 

6 750 

20 250 

40 500 


W celu zamówienia prenumeraty należy wypełnić czytel¬ 
nie blankiet wpłaty na konto (dostępny na pocztach I ban 
kaeh) podając na odwrocie Imię, nazwisko I adres zamawia¬ 
jącego oraz liczbę egzemplarzy danego numeru wraz z okre¬ 
sem prenumeraty Pieniądze prosimy wpłacać na konto 
Tajemnice AUrT ».c. Rzessów, uL Targowa 1/801, Bank Prze¬ 
mysłowo-Handlowy m Oddział Rzeszów nr 326807-23650-136 
Do końca kwietnia będzie otwarte Jeszcze stare konto 
tj A W ALBATROS” Pieniądze dotychczasowych pre¬ 
numeratorów zostały przekazane "Tajemnicom Atari" 
s c , który Jako nowy wydawca będzie prowadzić pre¬ 
numeratą Prosimy dokonywać nowych wpłat Juz na 
nowe konto bankowe 


USŁUGI KOMPUTEROWE 

Naprawy sprzętu 

• komputery • stacje dysków • Joystick! 

• monitory • magnetofony 

Modernizacje 

• rozszerzenia pamięci 

• TURBO do stacji dysków I magnetofonów 

Oprogramowanie 

Rzeszów, ul. Poznańska 2a tel. 447-20 w. 9 

Ceny ogłoszeń ramkowych w TA: 

• 1 cm 2 12000 

• Cała strona 6 min. + 100% za kolor 

• Ostatnia strona (kolor) 15 min 

Ogłoszenia drobne: 

• każde słowo 5 000 


Sześć nowych wersji ROBBO! 

Szalone pomysły. wspaniałe 
kolory, świetna zabawa dla dzieci 
1 dorosłych w zestawach po 2 gry 
+ niespodzianka 

Cena kasety 37 000 dysku 35 000 
Andrzej Krzyzak. os. Centrum B 
nr 2 m. 48. 31 -926 KRAKÓW 



ogłaszają 

mmmsóam 

Mmmmm w agród 

PREMIOWYCH 

dla zamawiających gry i programy 
w L.K.'Avalon". 

W każdym numerze TA będzie zamieszczany 
kupon, który upoważnia do wzięcia udziału 
w losowaniu. 

Co miesiąc 100 szczęśliwców , 

którzy przyślą oryginalny kupon wraz 
z zamówieniem (spis gier na ostatniej stronie), 
otrzyma Jedną z zamawianych pozycji 

za darmo. 

Pozostałe zamówienia będą realizowane 
w normalnym trybie. 


Termin nadsyłania zamówień z kuponami 
z numeru 2 TA mija 15 kwietnia 
Zamówienia z kufxmami 7. nr 1 będą przyjmowane 
do 31 marca 
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Z przerwaniem VBLANK, które opisałem w poprze¬ 
dnim odcinku lego cyklu, ściśle, związany Jest mecha¬ 
nizm izw liczników programowych, zaimplementowa¬ 
ny w systemie operacyjnym ATARI XL/XE Działanie te¬ 
go mechanizmu daje użytkownikowi do dyspozycji pięć 
dodatkowych źródeł przerwań, które mogą być aktywo 
wane w określonych odstępach czasu. Co więcej, ma¬ 
my tu do czynienia z przerwaniami nlcmaskowalnyml. 
Jako uruchamianymi przez przerwanie wygaszania pio¬ 
nowego. samo będące przerwantem NM1 

W celu wykorzystania tego udogodnienia należy przy¬ 
pomnieć sobie Informacje, dotyczące komorek 
CDTMV1-CDTMV5, zajmujących lokacje od 536 do 
545, czyli od $0218 do $0221. Tworzą one plęc dwu¬ 
bajtowych słów, których zapisanie wartościami rożny¬ 
mi od zera sygnalizuje systemowi chęc skorzystania 
z liczników, do których Je przypisano Od lej pory pod¬ 
czas każdego przerwania wygaszania pionowego wpl 
sane. liczby będą zmniejszane o Jeden, dopóki nie 
osiągną zera Po doliczeniu do zera system podejmie 
odpowiednie działania, zalcż.ne od lego klorego liczni¬ 
ka użyto Ponieważ są one rożne dla rożnych liczników 
omowlę Je za chwilę dla każdego przypadku z osobna 

$0226, $0227, 00550, 00551 CDTMA1 

Słowo lo zawiera adres skoku do procedury, wywoły 
wanej zawsze wtedy, gdy licznik programowy, związany 
z komorką CDTMV1 osiągnie zero Można w tym miej¬ 
scu umieścić adres własnej procedury obsługi lej sytu 
acjl, ale Jest to działalność o tyle bezużyteczna, że pier¬ 
wszy licznik Jest używany przez system operacyjny 
podczas operacji wcjsela/wyjsela. sląd tez zapisany ad 
res (Jak tez wartość w CDTMV1) może zostać zmienio¬ 
ny. o Ile zajdzie laka potrzeba Jeżeli pomimo to uży 
wamy lego licznika, należy pamiętać o zakończeniu 
własnej procedury rozkazem RTS, ponieważ Jest ona 
wywoływana przez skok do podprogramu czyli JSR 
W najnowszej wersji systemu operacyjnego słowo to, 
po restarcie systemu wskazuje adres 60433 ($ccl I) 

$0228, $0229, 00552, 00553 CDTMA2 


obsługa uzależniona Jest od lego, co w danej chwili 
dzieje się wewnątrz komputera Jeżeli akurat odbywa¬ 
ją się Jakieś operacje czasowo krytyczne, przerwanie to 
nie będzie obsłużone Warto o tym pamiętać, aby nie 
byc zdumionym, kiedy okaże się, że nie wszystko działa 
tak, jak powinno. 

Procedura obsługi tego przerwania powinna zakoń¬ 
czyć się rozkazem RTS Oprócz tego. jeśli reakcja na 
przerwanie ma nastąpić więcej nlz Jeden raz, warto 
w naszym podprogramie zadbać o ponowne zapisanie 
wartości licznika CDTMV2, bowiem w przeciwnym wy¬ 
padku system nie wystartuje odliczania 

Podczas restartu systemu słowo CDTMA2 Inicjowane 
Jest wartością zero Przy zmianie tej wartości trzeba 
pamiętać o pewnej zasadzie Ważne Jest aby adres 
własnej procedury ustawie przed zapisaniem czegokol 
wiek do komorkl CDTMV2 W przeciwnym wypadku 
możemy napotkać przerwanie, które skoczy pod zły 
(nie do końca ustawiony) adres 

$022a. 00554 CDTMF3 

Komorka pamięci o tym adresie zawiera nie adres 
alt' jednobajtowa flagę licznika programowego nr 3. 
Podczas odliczania, system zapisuje do niej wartość 
255 a po wyzerowaniu CDTMV3 kasuje len bajt, zapi¬ 
sując tu zero Licznik nr 3 używany Jesl przez system 
podczas odczytywania 1 zapisu nagłówków plików taś¬ 
mowych, stąd możliwości jego zastosowania przez 
użytkownika są utrudnione. 

$022b, 00555 SRUMR 

Tę komórkę pamięci system wykorzystuje podczas 
obsługi przerwania klawiatury, przepisując do niej 
warlosc z komorkl o adresie 729 ($02d9). lub 730 
S$02da) Gdy klawisz Jest przetrzymywany dłużej, na¬ 
stępuje Jego powtarzanie Użytkownik nie może lngero 
wae w te operacje poprzez SRT1MR, lecz jedynie przez 
wzmiankowane komorkl 729 1 730, odpowiedzialne 
za zwłokę bezpośrednio po naciśnięciu klawisza oraz 
za tempo powtórzeń 


W tym miejscu znajduje się adres procedury obsługi 
licznika programowego nr 2. uruchamianego przez za 
pisanie wartością różną od zera komórki CDTMV2 
Używanie tego licznika Jest zupełnie bezpieczne, gdyż 
został on przeznaczony do wykorzystania przez użyt¬ 
kownika 1 system nigdy nie Ingeruje w zawartość słowa 
CDTMA2 (1, oczywiście, CDTMV2). Mimo to, naleZy 
także pamiętać o pułapce, zastawionej na programi¬ 
stów. nie czytających dokładnie opisu ATARI OS Prze 
rwanie, pochodzące od licznika nr 2 Jest częścią dru 
glej fazy przerwania VBLANK, a w związku z !ym Jego 


$022c, 00556 CDTMF4 

Flaga licznika nr 4, o znaczeniu analogicznym do 
znaczenia CDTMF3. ale nie wykorzystywana przez sy¬ 
stem operacyjny komputera Podobnie Jak CDTMF3 
i CDTMF5 ustawianie tej flagi zalezne Jest od tego. czy 
komputer wykonuje operacje czasowo krytyczne Za¬ 
uważ, żc badanie tych flag ma sens dopiero po tym, jak 
system rozpocznie odliczanie, czyli po zakończeniu naj 
bliższego przerwania VBLANK 
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opt Ś010101 

clck egu $14 

ctv4 egu $02le 

ctf4 equ $ 022 c 

putl egu $c642 

org 1536 
main Ida 4255 
sta ctv4 
Ida *0 
sta ctv4+l 
Ida clck 

wclk cmp clck czekaj na rozpoczęcie 

beg wclk odliczania 

wait Ida ct£4 

bne wait 
ldx <text 
Idy >text 
jmp putl 

text dta c'Time out!*,b(155) 
end 

$022d. 00557 INTEMP 

Jest to tymczasowy rejestr, używany przez procedurę 
ustawiania adresu przerwania synchronizacji piono¬ 
wej. czyli SETVBV. 

S022e 00558 CDTMF5 

Patrz opis CDTMF4 

Jednym z ciekawych układów elektronicznych. Jakie 
można znaleźć wewnątrz komputera ATARI XL/XE Jest 
procesor graficzny ANT1C. Jest to układ scalony którego 
zadaniem Jest obrazowanie danych z pewnego obszaru 
pamięci komputera To. co wklzlmy na ekranie monitora, 
kiedy siadamy przed komputerem Jest efektem pracy AN- 
TIC-u. Sedno działania procesora graficznego tkwi w tzw. 
bezpośrednim dostępie do pamięci, zwanym krotko DMA 
(z ang. Direct Memory Access). Po prostu, ANT1C pobiera 
dane do wyświetlenia z pamięci bez pośrednictwa gjow- 
nego procesora, 'podkradając" mu Jednak nieco czasu, 
czyli zwalniając Jego tempo pracy Jak napisałem po wy 
zej. ANTIC Jest prawdziwym procesorem z własnym dwu- 
nastobltowym licznikiem rozkazów 1 zestawem Instrukcji 
Wykonuje on program, którego adres zapisany Jest w sło¬ 
wie SDLSTL zajmującym komórki pamięci o adresach 
5601 561, czyli $02301 $0231. 

W wyniku działalności ANTIC-u widzimy obraz któ¬ 
rego podstawowym składnikiem Jest tzw pole gry (ang 
playfleld) Dodatkowo, może on wyświetlać niezależne 
obiekty graficzne, które łatwo animować, tzw. graczy 
(ang. players) 1 pociski (ang misslles) 

$0221. 00556 SDMCTL 

Ta komórka pamięci steruje bezpośrednim dostę¬ 
pem do pamięci procesora graficznego Jest ona cie¬ 
niem sprzętowego rejestru DMACTL (54272. czyli 
$d400) 1 jej zawartość traktowana Jest bitowo Znacze¬ 
nie bitów SDMCTL Jest następujące 


bit 0, 1 rodzaj pola gry 

bit 2 DMA dla pocisków 

bit 3 DMA dla graczy 

bit 4 rozdzielczość pionowa gracza 

bit 5 DMA dla obrazu. 

Dwa najmłodsze bity definiują rodzaj wyświetlanego 
pola gry tworząc kombinacje: 

0 0 pole gry nie jest wyświetlane 
0 1 wąskie pole gry (32 znaki w trybie 0) 

1 0 normalne pole gry (40 znaków w trybie 0) 

1 1 szerokie pole gry (48 znaków w trybie 0) 

Podane wyżej Ilości znaków dość dobrze określają 
szerokości odpowiednich pól gry. chociaż ten sposób 
określania rozmiaru ekranu nie jest w pełni zgodny 
z terminologią, zalecaną przez firmę ATARI. Gwoli ści¬ 
słości warto więc zaznaczyć, że powinno się w tym wy¬ 
padku mówić o tzw. cyklach koloru (ang. color eloeks). 
których liczba dla odpowiednich pól gry przedstawia 
się następująco- 

wąskie pole gry 128 cykli koloru 
normalne pole gry 160 cykli koloru 
szerokie pole gry 192 cykle koloru. 

Nic wszystkie telewizory 1 monitory pozwolą nam zo¬ 
baczy cały obraz, kiedy zażądamy wyświetlenia szero¬ 
kiego pola gry, ale taka możliwość Jest przydatna choć¬ 
by wtedy, gdy irytują nas ramki z lewej 1 prawej strony 
wyświetlanego obrazu. 

Bity nr 2 1 3 uruchamiają (po wpisaniu do nich 1), 
lub blokują (po wpisaniu 0). odpowiednio DMA dla po¬ 
cisków 1 dla graczy Oznacza to w praktyce, że albo wl 
dac graczy 1 pociski, albo Ich nie widać. Oczywiście 
można włączyc np. tylko DMA dla graczy lub pocisków 
są one niezależne. 

Blt nr 4 definiuje sposob wyświetlania gracza. Więcej 
szczegółów na ten temat zamieszczę przy okazji opisu 
tej techniki, 

BU nr 5 włącza (po zapisaniu 1). lub wyłącza (po za¬ 
pisaniu 0) bezpośredni dostęp ANTlC-a do pamięci 
a co za tym idzie wyświetlanie obrazu. Jeśli czasem 
zdarza się. ze program wykonuje dużą Ilość np obli 
czeń. których wyniki nie są dynamicznie prezentowane 
na ekranie, to warto na ten czas wyłączyć DMA dla 
procesora graficznego Przestanie on wtedy pracować 
równolegli z 6502, co zwiększy szybkość tego ostatnie¬ 
go o ok 30 procent Aby wyłączyć DMA dla ANTlC-a, 
trzeba najpierw odczytać zawartość komórki SDMCTL 
1 zapamiętać Ją. później zaś wpisać do niej zero Po za 
kończeniu operacji, które chcemy przyspieszyć, należy 
zapisać na powrót zapamiętaną wartość do tego reje¬ 
stru Często warto także zgasić ekran podczas ładowa¬ 
nia do pamięci obrazków, nie widać wtedy. Jak są one 
rysowane, za to można obserwować końcowy efekt Po 
restarcie systemu do komórki SDMCTL zapisywana 
Jest wartość 34. czyli bitowo % 100010. co oznacza 
włączenie bezpośredniego dostępu ANTIC-a do pamięci 
1 ustawienie standardowego pola gry 

Jarosław Syrylak 
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Od pewnego czasu Jestem użytkowni¬ 
kiem stacji dysków TOMS 720 Dziś 
pragnę podzl llć się z Wami uwagami 
na temat jej eksploatacji 

Mechanizm stacji nie powstał w (Ir 
mle TOMS Wykorzystano tu bowiem 
seryjny napęd stosowany w kompute¬ 
rach IBM PC/AT. co daje caiy szereg wy 
miernych korzyści Napęd ten ma mo¬ 
żliwość zapisu I odczytu az 80 ścieżek 
po każdej ze stron dyskietki W typo¬ 
wym dla ATARI zapisie "double" wyko 
rzystywane Jesi 40 ścieżek. Jednostron¬ 
nie TOMS 720 pozwala więc na 4-krot- 
ne zwiększenie pojemności dyskietki 

Hola 1 zakrzykną niektórzy Przecież 
w zwykłych napędach ATARI tez da się 
wykorzystać drugą stronę' Wystarczy 
obrócić dyskietkę A czy zauważyli 
ście. ze dyskietka NIE jest symetrycz¬ 
na? Wsunięta do kieszeni napędu od¬ 
wrotnie leży w zupełnie Innej płaszczyź¬ 
nie, niz przewiduje to konstrukcja me¬ 
chanizmu Jest to szkodliwe I dla dys¬ 
kietki i dla stacji Po wtóre. Jedną 
z funkcji wyściółkl, która pokrywa od 
wewnątrz kopertę dyskietki. Jest zatrzy¬ 
mywanie kurzu I drobnych ciał obcych, 
które wiedzione nieomylną Intuicją 
pchają się tam stadami Wszystko Jesi 
dobrze, dopóki dyskietka kręci się 
w Jedną stronę Założona odwrotnie 
hojnie zwraca nagromadzone śmiecie 
wprost w objęcia głowicy' 

A zatem najrozsądniej Jest wykorzy 
stywać obie strony dyskietki bez odwra¬ 
cania jej, lak. Jak Jest to możliwe w sta¬ 
cji TOMS Nie każdy wszakże DOS łtę- 
rizie umiał się do obu stron dobrać 
Jednym z DOS-6w. które to potrafią 
Jest MYDOS 4 5 Dodatkową zaletą Jest 
fakt Jego stałej obecności w napędzie 
TOMS Tak' To nie żarty' Producenci 
napędu umieścili w Jego pamięci na sta¬ 
łe 'dyskietkę” zawierającą wspomniany 
system operacyjny, a także kilka poży¬ 
tecznych programów użytkowych Jest 
ona stale obecna Jako napęd ”D3:", 
a przy otwartych drzwiczkach także Ja¬ 
ko “Dl " (co umożliwia wczytywanie 
z niej DOS-u) 

Dzięki odczytywaniu przez napęd ca- 
'yeh ścieżek szybki odczyt danych Jest 
możliwy zawsze bez względu na sposób 
sformatowania dyskietki Trzeba lylko 
uruchomić komputer z podłączoną, 
lecz otwartą stacją, co spowoduje umie¬ 
szczenie w pamięci specjalnego progra¬ 
mu obsługi przerwań Program ten mie¬ 
ści się na stronie 1 1 praktycznie nie 
koliduje z żadnymi Innymi programami 
Od tej pory transmisja przebiega z "kos¬ 
miczną" szybkością 70000 bodów 

Szczególnie miło przebiega praca ze 
SparLaDOS m który nawet nic wyma 
ga ładowania programu przyspieszają¬ 


cego, gdyż ma go w sobie I sam, rozpo¬ 
znawszy możliwości stacji przełącza się 
na szybką transmisję Umożliwia tez 
sformatowanie i wykorzystanie pełnych 
720K pojemność 1 dyskietki 

Mechanizm stacji pracuje pewnie I ci¬ 
cho W czasie półrocznej bez mała eks¬ 
ploatacji nic pojawiły się żadne usterki 
mechaniczne ani elektryczne. Jedyną 
przykrą rzeczą Jest wyraźnie słyszalne 
brzęczenie transformatora (zasilacz Jest 
zintegrowany z napędem, co Jest dużym 
udogodnieniem w porównaniu z pląta¬ 
niną kabli przy sprzęcie ATARI! 

Duży pożytek w redakcyjnej pracy 
przynosi możliwość odczytu i zapisu 
plików w formacie IBM Korzystam 
z niej na co dzień przy przenoszeniu te¬ 
kstów programów z ATARI na PC dla 
potrzeb TA Dzięki ominięciu fazy prze¬ 
pisywania udaje- się uniknąć wielu błę¬ 
dów Program do odczytu I zapisu 
w formacie IBM I ATARI ST znajduje 
się w stacji Jest on raczej niewygodny 
w użyciu, ale działa 

Dodatkową atrakcją Jesi wbudowane 
złącze "Centronics", które umożliwia 
podłączenie do komputera prawic każ¬ 
dej drukarki 

Niestety, napęd ten nie Jest wolny od 
wari Najboleśniejszą Jest wymóg odcze¬ 
kania pewnego czasu po umieszczeniu 
dyskietki w stacji, az zostanie ustalona 
gęstość zapisu Trwa to nieznośnie dłu 


go a Jeśli niecierpliwy użytkownik 
spróbuje w tym czasie wykonać Jakąś 
operację (choćby proste D!R) stacja za¬ 
wiesza się I trzeba ponownie otworzyć Ją 
1 zamknąć To uczy cierpliwości 1 pokory 
wobec pomysłowych twórców tego napę 
du Przedstawiciel firmy TOMS stwier¬ 
dził ze nie Jest to usterka bo (cytuję) 
"Program w stacji nie Jest przewidziany 
do tak szybkiego naciskania klawiszy 1 

Inną irytującą dolegliwością Jest czę¬ 
ste samoczynne wyłączanie buforowa¬ 
nia ścieżek Insirukcja podaje, że po 
wodują to 'niektóre programy lub kło 
poty z rozpoznaniem formatu". Progra¬ 
mami, których u/ywam. są DOS 1 BA¬ 
SIC, a dyskietki sformatowane standar¬ 
dowo odczytują się bez kłopotu Mimo 
to kilkanaście razy dziennie stacja 
przełącza się w tryb ”bcz buforowania'' 

Reasumując, znajduję w napędzie 
TOMS 720 więcej zalet, nlz wad ! z czy¬ 
stym sumieniem mogę go polecić wszy 
stklm zwłaszcza tym. którzy intensyw¬ 
niej "męczą” swój sprzęt Dzięki mozll 
woścl przenoszenia danych do 1 z In¬ 
nych komputerów małe ATARI może 
być używane Jako tani komputer peryfe¬ 
ryjny w większym systemie Firmie 
TOMS zyczę dalszego podnoszenia po¬ 
ziomu swych wyrobów, zwłaszcza od 
strony oprogramowania 

Janusz B. Wiśniewski 
Fot. Janusz Wojewoda 
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Małe Jest piękne! Okazuje się. ze program wyświetla¬ 
jący liczby w systemie dwójkowym (przedstawiony 
w TA 7/91) da się Jeszcze skrócie. Zawdzięczamy to 
Rafałowi Latasowl Tak trzyma/ 1 ! 

TM 1 N=8:W=2"(N-1):INPUT X:FOR 1=1 TO N:D 
=X>=W:X=(X-W*D)*2:? D;:NEXT I 


Program Arkadiusza Okrojka kreśli pscudoprze- 
strzenne wykresy Nadaje się zwłaszcza do wykonywa¬ 
nia podczas obiadu lub czasochłonnych prac domo¬ 
wych. gdyż Jest niesłychanie powolny Program nie ry¬ 
suje niewidocznych części wykresu dzięki zgrabnemu 
zastosowaniu algorytmu podanego przez W Stanlsza 
w Bajtku nr 2/87 

TX 1 DIM YM(320):? CHR$(125);“CHWILA":FOR 
Q=0 TO 320:YM(Q)»-95:NEXT Q:GRAPHICS 
8+16:POKE 710,0;COLOR 1:CL0SE #1 
QV 2 FOR Y=0 TO 96;K=8:IF Y/8=INT(Y/8) TH 
EN K=1 

SU 3 FOR X=0 TO 160 STEP K:Z=SIN(X/15)*SI 
N(Y/15)*25:X1=X+0.5*Y:Y1=Z+0.5*Y:IF YM 
(XI)>Y1 THEN Y1=YM(XI) 

RL 4 IF Yl>96 THEN Yl=96 

RR 5 YM(X1)=Y1: PLOT XI,96-Y1:NEXT X:NEXT 
Y:SOUND 0,121,10,8:OPEN #1,4,0,"K:“:GE 
T #1,M:END 





Wieczny katei*ciax*: 

Czy Jest ktoś, kogo nie elekawl(ło), w Jakim dniu 
tygodnia się urodził Albo w jaki dzień przypadnie No¬ 
wy Rok 2000' Program Mirosława Plerechoda daje od 
powiedź na takie pytanie. 

PO 1 DIM D$(15) :? CHR$ (125):POSITION 9,2: 

? "WIECZNY KALENDARZ":POSITION 8,3:7 " 

-... ? 

QG 2 TRAP 2:? "PODAJ: rok,miesiąc,dzień"; 

:INPUT R,M,D:TRAP 40000:IF M<3 THEN R= 

R-1:M=M+12:R-R+1900*(R<100) 

QJ 3 D=R+INT(R/4)-INT(R/100)+INT(R/400)+3 
*M-INT((M+M+l)/5)+D+1:D=D-INT(D/7)*7:R 
ESTORE 

SE 4 FOR X»0 TO D:READ D$:NEXT X:? :? D$: 

? :G0T0 2 

ML 5 DATA NIEDZIELA,PONIEDZIAŁEK,WTOREK,S 
RODA,C ZWARTEK,PIATEK,SOBOTA 



Uruchomieni* programu Adama Salamona pozwala 
ustawiać kolor liter l tła każdego wiersza ekranu 
(w trybie 0) z osobna Dotychczasowe rejestry koloru, 
komorkl 709 l 710 dotyczą teraz tylko wyglądu pler 
wszego wl* rsza Bajty 1641 1663 stanowią rejestry 
koloru liter dla wierszy 2 24, zas bajty 1664 1686 de 
cydują o kolorze tła tych wierszy 

Warto pamiętać, ze takie wyświetlanie kolorów odbija 
się ujemnie na współpracy z urządzeniami zewnętrznymi 
Na ogoł zachodzi potrzeba wyłączenia kolorów, co można 
osiągnąć przez POKE 54286,64 Ponowne włączenie ko- 
lorowjest możliwe poprzez X =USR( 1573) 

NO 1 FOR 1=1536 TO 1640:READ A:P0KE I,A:N 
EXT I: FOR 1=0 TO 22:POKE 1641+1,PEEK(7 
09):POKE 1644+1,PEEK(710):NEXT I 
LP 2 I=USR(1536):DATA 173,48,2,133,203,17 

3.49.2.133.204.160.3.169.194.145.203.1 
60,6,169,130,145,203,200,192,28,208 

WC 3 DATA 249,169,64,141,0,2,169,6,141,1, 

2.169.233.133.205.173.105.6.133.203.17 

3.128.6.133.204.165 

PF 4 DATA 20,197,20,240,252,169,192,141,1 

4.212.104.96.72.138.72.166.203.169.1.1 

41.10.212.142.23.208.165 

0Q 5 DATA 204,141,24,208,166,205,232,208, 

2.162.233.134.205.189.128.5.133.203.18 
9,151,5,133,204,104,170,104,64 


14 



























PiPIl 



"Kolony*, to gra. będąca najno¬ 
wszym produktem znanej Już na¬ 
szym czytelnikom firmy "Mlrage 
software*. Gracz zostaje gubernato¬ 
rem kolonii znajdującej się na jed¬ 
nej z wysp planety Vvp-12a. Jego 
zadanie polega na takim admini¬ 
strowaniu kolonią, by osiągnąć Jak 
największe zyski. Nie Jest to łatwa 
misja - należy zgromadzić załogę 
bazy oraz odpowiednią grupę kolo¬ 
nistów l zadbać o zapewnienie lm 
żywności - ważną rolę odgrywa 
więc produkcja rolna, której nic 
powinno się zaniedbywać. 

Kolejną istotną sprawą Jest roz¬ 
winięcie przemysłu, wymagające 
szeregu Inwestycji. Wszelkie maszy¬ 
ny, surowce 1 Inne środki niezbęd¬ 
ne kolonistom do przetrwania 1 roz 
woju produkcji są bardzo kosztow¬ 
ne. a zasoby pieniężne ograniczone. 
W dodatku co Jakiś czas na wyspę 
spadają rozmaite klęski. Jak na 
przykład atak wrogo usposoblo 
nych tubylców, czy też zniszczenie 
pól uprawnych przez groźną Bestię. 

Wszystkim tym trudnościom 1 za¬ 
grożeniom musi stawić czoła ambit¬ 
ny 1 przedsiębiorczy gubernator dą¬ 
żący do zapewnienia mieszkańcom 


administrowanej kolonii Jak najle¬ 
pszych warunków życia 1 pracy. 

Ukończenie "Kolony" nie Jest ła¬ 
twym zadaniem Wymaga od gracza 
dużej koncentracji 1 sporego zaan¬ 
gażowania. Szczególnie polecamy Ją 
tym spośród miłośników gier. któ¬ 
rzy w miarę dobrze radzą sobie 
z matematyką. Grę tę można okre¬ 
ślić Jako "ekonomiczną", gdyż w jej 
toku gracz zawiera różnego rodzaju 
transakcje kupna 1 sprzedaży, za¬ 
trudnia pracowników o rozmaitych 
specjalnościach, planuje Inwestycje 
przemysłowe 1 rolnicze, organizuje 
wyprawy badawcze w głąb wyspy, 
kontroluje poziom wydobycia su 
rowców naturalnych - krótko mó¬ 
wiąc odpowiada za całą gospodar¬ 
kę kolonii. Decyzje, Jakie pod Jmu 
Je, muszą być starannie przemyśla¬ 
ne. gdyż zbyt pochopne posunięcia 
mogą doprowadzić do katastrofa! 
nych skutków. 

"Kolony" to gra ciekawa 1 wciąga¬ 
jąca. Jednakże zawiera kilka dość 
nieoczekiwanych niespodzianek 
w postaci poważnych błędów orto¬ 
graficznych. Dobrze by było, gdyby 
autorzy zwracali nieco większą 
uwagę na poprawność jpojawiają 
cych się na ekranie tekstów 


Oprawa graficzna gry Jesl bardzo 
skąpa, zaś muzycznej nie ma wca¬ 
le. Trochę szkoda, gdyż elementy te 
znacznie podnoszą atrakcyjność 
gier, na co zwracają uwagę zwłasz¬ 
cza młodsi gracze, choć nie tylko 
oni. Miło byłoby w trakcie podejmo¬ 
wania niełatwych decyzji mleć mo¬ 
żliwość zrelaksowania się przyje¬ 
mną muzyczką 

Dobra muzyka stanowi nieza¬ 
przeczalny walor drugiej z omawia¬ 
nych tu gier - "Tac Tlca*. Bohate¬ 
rem Jest sympatyczny ludzik jporu- 
szający się po kolejnych komna¬ 
tach labiryntu (pomysł Jakby znajo¬ 
my ..). Aby przejść z jednej komna¬ 
ty do drugiej, musi ustawić w odpo¬ 
wiednim porządku znajdujące się 
tam ruchome obiekty. W wykona 
nlu lego zadania przeszkadzają mu 
"duszki". które mimo dobroduszne¬ 
go wyglądu stanowią dla naszego 
ludzika poważne zagrożenie. Po¬ 
mocne mu są natomiast urządzenia 
do teleportacji rozmieszczone 
w niektórych komnatach 

"Tac Tle" Jesl typową grą zręczno¬ 
ściowe - logiczną, w której oprócz 
szybkiego refleksu (czas przecho¬ 
dzenia poszczególnych komnat Jest 
ograniczony), potrzebna Jest także 
pomysłowość. Graczowi jpozosta- . 
wlono stosunkowo dużą swobodę 
w manipulowaniu elementami, naj¬ 
większą trudność może sprawić 
ograniczony czas gry. Na szczęście 
refleks można ćwiczyć, mamy więc 
nadzieję, że nasi czytelnicy poradzą 
sobie z "Tac Tlcem" bez większych 
kłojpotów 

Gra posiada niezłą oprawę grafi¬ 
czną. niektóre rozwiązania są miłe 
dla oka. jednakże czasami mamy 
do czynienia z pewnym "zagmatwa¬ 
niem 1 ' elementów, co ma niekorzy¬ 
stny wpływ na czytelność poszcze¬ 
gólnych plansz 1 może stanowić 
znaczne utrudnienie, zwłaszcza dla 
młodszych graczy. 

Basia 


Obie gry sprzedawane są wysył¬ 
kowo przez Laboratorium Kompu¬ 
terowe "Avalon" (patrz ostatnia 
strona) 

AVALON 


IB 










Z drugiej strony, “ 

czyli w górze, 
też nie zawsze 
twardy sufit jest 

wystarczająco wysoko... 

Nie skacz także okrakiem 
na narożniki kamieni, bo po tym 
już nigdy nie będziesz męzczyzną 


Kiedy już rozwikłasz 

wszystkie zagadki, 

spróbuj zmierzyć się z autorem, 

przechodząc plansze najkrótszą drogą 

(ograniczenie kroków) 

lub w najkrótszym czasie. 


Wszystkie plansze są możliwe do przejścia 
z tymi ograniczeniami! 


Pomyśl i zbierz wszystkie skarby. 
Stawiaj kroki rozważnie (klawisze + 1 *) 
i podskakuj, gdy trzeba (spacja). 


Pamiętaj, 

ze upadek z wysokości 
większej od dwukrotnego 
Twego wzrostu 
zawsze kończy się 

tragicznie. 


Powodzenia! 
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5 DIM C$(26);GRAPHICS 18:P0SITI0N 8,5 
16 EK=PEEK (®8J *PEEK(89) *256 
2® ? N6,"f iC" RESTORE 1011® 

25 FOS 1=8 10 12:READ C$ 

3® FOB J ® TO 15:REM CS=BFS(J*1) 

35 SOUND 1,255-12*1 7#J,10.1+1 
48 PO E 38tl2*16*I*J,A$C(CSCJ41)) 

45 NEHT J NEHT I:SOUND 1.0,8,® 

58 RE=288®: REH MfffTffeffrfeffl 103 
55 GRAPHICS 8 

88 ? *''444HYBIERZ HARIANT ( BUZO 1" 

65 ? “41 1 bez ograniczenia" 

7® ? ■* 2. z ograniczony* czaseM" 

75 ? " 3. z ograniezony*i kroka*i >[ 

88 ■» " 4. z ograniczony* czaseM i kro 

ka*i444”:C$=CHR$(34) 

85 ? CS;“*",C >;'• RUCH M LEMO" 

98 ? C$;"*";CS;" - RUCH M PRSHO" 

95 ? CSj" ";C$;" - POD SKOKłł" 
i®8 » "ZAGRAJ SOBIE I HM >i ) ł" 

185 ? "LUB ZREZYGNUJ C 114" 

lii P05I ION .O+b* 9 " ";:J=53279 A 1 
115 I-PEEKCJ),II I<>3 THE • 125 
138 POKE 566,146:P0KE 580,8 GRAPHICS 8 
:END 

125 IF I<5 OR 1=7 THEN 115 

130 SOUND 1,58,18,6 SOUNi 1/1,8,0,8 

135 IF 15 THEN O 0*1-4*10:32 GOT© 110 

140 KR=0>l:CZ-.0 2«KR:P0KE 732,8 

145 GRAPHICS 18;POKE 756,152 

150 RESTORF, RE FOR 1=0 TO 4 

155 REA J POKE 788*1,J NEHT I 

160 FOR 1=8 TO 11 

165 SOU-O 1,11 : 8,15 I:READ C$ 

178 * M6;CS;:NEHT I:50UND 1.8,8,8 
175 POKE 764,255’READ X,Y,LC,HC,HK,NS 
180 HH=2:ZH=8:SK-8:H=2:T=f 
185 IF NOT KP THEN 20® 

190 POSITION 15 (HK>9) (HK>99),0 
195 ? B6 

2®e REM -- 

205 POSITION X,Y:» S6;CHRS(13*ZkO 
21® IF NOT C2 THEN 235 
215 T=T*1:IF T<18 fHEN 235 
220 POSITION 3-CH091 (MC>99),8 
225 ? B6;"//";MC; 

230 HC MC-l:T=0SlF HC<8 THEN 658 
235 IF LC=8 THEN 39® 

240 IF PEEK(732) THEN 55 
245 Y'-Y*l: GOSUB 535 Y=Y-1 
250 IF K=0 OR P THEN 555 
255 SK=8:IF H<@ THEN 65® 

260 IF K<4 THE 555 
265 SOUND 1,0,0,® 

270 K=PEEK1764};IF K=255 THEN 208 
275 IF OT KB THEN 295 
280 HK=HK 1 :IF MK<0 THEN 658 
285 POSITION 131MK>9> (180991,8 
29® * 86 "//";<; 

295 POKE 764,255:K=K-64*CK>63) 

380 K=K-64*(K>631 IF K<>6 HŁ 328 

385 REM-RUCH M LEWO - 

310 SOUND 1,6,8,4;IF ZM= 1 THEN 555 
315 ZH=ZN~1.GOTO 200 
320 IF KO? THEN 340 

325 REH-RUCH M PRANO- 

330 SOUND 1,4,8,4 sIF ZH=1 THEN 555 
335 ZH=ZH*1 6019 208 
340 IF K<>33 THEN 200 

345 REM -SKOK - 

350 SOUND 1,80,10 10 
355 5K=l:H=0 GOTO 555 

360 REH -PUNKTY- 

365 K=128:F0R 1=1 TO 3 
370 FOR J=15 TO 0 STEP 3 
375 SOUND 1 K,18,J:NEHT J 
380 K=K-48:NEXT I LC=LC"1 
3B5 SOUND 1,0,8,0:RETURN 

390 REM —— ZALICZENIE -- 

395 RE5T0RE 425;FOS 1=1 10 36 
40® POKE 755,ABS(PEEK(7551 81 
48S READ KL:FOR 4=15 TO 0 STEP ~1 
418 SOUND 1,KL,10,J:NEHT J:NEHT I 
415 86;"N";:II N5=8 THEN 58 

428 RE=NS:GOTO 145 
425 DATA 96,91,81,91,96,188,121,128 
430 DATA 121,0,96,81,68,6,6,$ 

435 DATA 64 68,53,§0,72,60 81,60 
440 DATA 81,0,91,96,91,0,96,108,121,0, 
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KH 
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GO 

OH 

00 

ON 

RG 
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RP 

BN 

NO 

TO 

RS 

FR 
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HK 

ZP 

HH 
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HH 

TU 
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HE 

RY 

LO 

TO 

AY 

JU 
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JH 

SK 

RN 

80 

KH 

IN 

TN 

KH 

BY 

OL 

Q0 

LJ 

YH 

PP 

ZO 

JX 

BI 

DD 

8M 

CD 

Al 

88 

IR 


445 REH-MI NO A- 

450 READ HDIF MD=8 THEN 505 

455 ZH=e:H=INT(HD/iei:Y=HD-10*Xłl 

460 FOR 1=158 TO STEP -2 

465 SOUND 1,1,18,1/18:NEHT ItGOTO 575 

470 REM-- ZAPADNIA- 

475 IF RND(I)(1-(LC 11/28 THEN 265 

488 POKE EK*28*¥*2@*H,6 

485 ZN=8 IF H>=8 THEN H=MH 

490 FOR I=-14 TO 15 

495 SOUND 1,ABS (1},8,15-ABS(I) 

586 NEHT I:GOTO 648 

S8S REM-ZATRUTY DYNAMIK- 

518 K=39616«8*ZH:F0R 1=8 TO 7 

515 H=PEEK(K«I):POKE K*I,PEEK(K*7-IJ 

528 PÓKI 1*7-1,H:FOR J-10® T@ 118 

525 SOUND 1,J,10,15:NEHT J 

53® NEHT I:ŚOUNO 1,8, 8: GOTO 658 

535 REM-BAD. TERENU —- 

546 K=PEEK(EK*20*Y*H):K=K-128*(K>127I 
545 K=K-64*(K>63):P=K>3 AND K<10 
55® RETURN 

555 REH- 5PR KOLIZJI- 

56® POSITION H,Y 

565 ON K GOTO 565,470,445 

570 H=H*ZM*(H>=®l!Y=Y-SK 

575 GOSUC 535'IF P THEN GOSUB 360 

580 IF SK=0 IHEH 618 

585 REH- SKOK - 

598 SOUND ł,77“18*M,ie,10 
595 IF K)0 THEW 658 
600 H H*5K IF H-HH THEN SK=-1 
6® GOTO 645 

§1® SEH-RUCH POZIOMY- 

615 SOUND 1,(98.OilF K> THEN 658 

628 Y=Y*1: GOSUl; 535;Y=Y-1 

625 IF K)6 AND NOT P THEN 645 

630 SOUND 1,68,18,10 

635 IF >0 THEN GOSUB 368 

640 Y=Y*l:H=MH-l:SK=-l 

645 ? »6;" «;:GOTO 280 

65® REM--ŚMIERĆ - 

655 FOR 1=8 TO 7 FOR J=8 TO 3 
660 H=PEEK(39816*2*J*8*ZM)/2 
665 POKE 39816*2*J*8*ZH,INT(H) 

670 SOUND 1,1®8-10*J,4,1@ 

675 HiPEEK t39817ł2*J*8*ZH)*2 
680 POKE 39817*2*J*8*ZH,H-256K(H>255} 
685 NEHT J:NEKT IlSOUN! l,8,0,t 
690 RESTORE 1070 » B6;"K"; 

695 TOR 1=8 TO 1.READ C$ 

766 POKE 712,ABS(PEEK(712)-255) 

7@5 FOR J-0 TO 15 

710 POKE 39608*16*1*J,ASC(CS 1J*l)) 

715 SOUND l.J 8,11 NEXT J NEHT I 
720 FOR 1=10 TO 8 STEP -0.1 
725 SOUND 1„J,0,1:NEHT ISGOTO 145 
1680 
1818 
1828 
1638 
1848 
1650 
1868 
1870 

ieee 

109® 

1100 
111 ® 

112 ® 

1130 
1148 
1150 
2000 
2810 
2028 
203® 

2840 
2050 
2060 
2870 
2088 
209® 

210® 

2110 
2120 
2138 
2140 
2150 
2168 



REH 

DATA W t WM Wlllini] 
data iiiinin iHlIll; 

DATA i <•‘-i <♦*<*■<< < < 

DATA **$< 

DATA **< 

DATA | 

DATA 
ATA « 

REH 
DATA 
DATA 
DATA 
DATA 
DATA 
REH 

REH Hur.FAC,skarby,rezerwa,tlo 
DATA 138,285, 88, 8, 16 

DATA //////////////////// 

DATA * ♦ 

DATO * + 

DATA * / B ♦ 

DATA * 0/0 ♦//* ♦ 

DATA * *///* * 

DATA * B/fcJ * 

DATA * ♦///////« ♦ 

DATA * B/B ♦ 

DATA * ♦///////////* ♦ 

DATA * Q/1 ♦ 

DATA //////////////////// 

DATA 15,18,9,17,111,2288,8 

REH H Y.LC.MC.HK.,N5... HINOA 

REH 
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XE 

FR 

BK 
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XV 
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FV 

EM 

BJ 

IZ 

TZ 

XT 

CK 

OJ 

115 

XF 

CJ 

zr 

MC 

KH 

VF 

RX 

PJ 

CP 

RH 

DI 

JD 

UD 

XK 

CO 

EL 

XU 

LF 

DD 

MC 

HK 

MX 

UC 

C5 

AM 

CT 

ML 

AA 

JH 

TO 

XX 

BZ 

BH 

HE 

UO 

AU 

EH 

BB 

5R 

ZE 

LC 

5E 

KC 

RO 


2200 

2210 

2220 

2130 

2240 

22S0 

2260 

2270 

2280 

2250 

2300 

2118 

2X2$ 

2338 

2340 

2350 

2160 

2400 

2410 

2420 

2430 

2440 

2450 


1EM Mur.FAC,skarby,rezerwa,tio 
DATA 138,205, 19 O, 18 
DATA //////////////////// 


*7* 


DATA « 

DATA M 

DATA « ♦* 

DATA * ♦/* 

DATA « ♦« 

DATA « 

DATA * ♦/« 

DATO * 9 

DATO 7* 

DOTO « 

DATA //////////////////// 

DOTA 18,10,5,11,43,2400,0 
REM .X..Y.LC.MC.MK..H5....MIHDA 
REM 

REM mut.FAC, skarby,rezerwa,t10 
DATA 138,295, SB, 18 

//////////////////// 


♦ 
* 
♦ 

B* 

♦ / 

fi G* 

*/////// 

♦ 

7 ♦ 

7 ♦ 


DATA 

DATA 

DATA 

DATA 


♦ 

♦////////» ♦ 
ł 

t# ł 

f ♦ 

♦///* */ 
ł/W ♦ // 

7 ♦ 

♦///* ♦////* ♦ 

(Si ♦ 

/////////!7!//////// 
05,10,3,18,94,2600,0 
.X..Y.LC.MC.MK. 45 . MIHDA 


♦7* 


2460 DATA 
2478 DATO 
2480 DATA 
2490 DOTO 
2500 DATA 
2310 DATA 
2529 DATA 

2539 DATA 

2540 DATA 
2550 REM 
2560 REM 

2600 REM nur,FAC,skarby,rezerw*.tlo 
2610 DATA 138,295, 88, 9, 18 

2629 DATA //////////////////// 

2639 DATA * H 4 

2649 DATA /U/* Tm ♦ 

2659 DATA *0 ** ♦// 

2660 DATO M ** ** ♦ 

2670 DATA 7/8* ♦* g *M H* 

2680 DATA M ♦* ♦* *8/ 

2690 DATA 787* ♦* *//« * 

2700 DOTO MS *8X * 

2710 DATA Tg/M 7 ♦/// 

2720 DATA tfj 7 ♦ 

2730 DATA //////////////////// 

2740 DATO 03,01,06,20,86,2800,13,35,27 
.139,139,139,181,13,0 

2750 REM .X..Y .LC MC HK..KS_MIHDA 

2760 REM 

2800 REM Nur, FAC,skarby,rezerwa,tlo 
2B10 DATA 138,295, 88, 9, 18 

2820 DATO //////////////////// 

2830 DATA * " @4 

2840 DATA łłlł/ł* 4M ♦ 


Sm 


/m 4a//* ♦ 

7* 4 

/M ♦///////// 

/M B fc* 

■M *////!//* ♦ 

HQ /H0 O* 

////////////////W *7 

!£////////////////// 
6,10,10,24,118,3900,37,0 
.X.Y..LC.MC.HK..RS . MIHDA 


2850 DATA M 
2860 DATA M 
2870 DATA M 
2880 DOTA *C 
2890 DATO 77* 

2900 DATO 
2910 DOTO 
2920 DATO 
2930 DATO 
2940 DATA 
2950 REM 
2960 REM 

3000 REM Mur.FAC,skarby,rezerwa,tio 
3(10 86T0 138,205, 66, O, 18 

3620 DATA //////////////////// 

3030 DATA Mg g)4 

1040 DATA «D 4M 7 

3050 DATO ////* B 4///M g* 

3060 DATA Mg 4/M g** g*/« ♦ 

3070 DATA 7* 4////M ♦ //* ♦ 

M 40// 

M B4//« 4!/M ♦ 
///////Mg */g /M ♦ 
////////////////M ł 

« □ 4 

/O//////////!/////// 

10,10,12,24,114,3200,55,137, 


3000 

309® 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3200 

3210 



X..V..LC.MC.HK..MS.. MIHDA 


REN Mur.FAC,skarby,rezerwa,tio 
DATA 138,205, 88, 0, 18 
DATA //////////////////// 
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CO 
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HT 
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UE 

XV 

CP 

QY 

RF 

UM 

UP 

US 

UU 

UY 

TZ 

UC 

BA 

YU 

UZ 

HX 

JI 

TP 

XJ 

CA 

OM 

VB 

HZ 

ZH 

OZ 

EF 

MU 

LC 

YU 

BC 

HL 

PM 

HJ 

IT 


3230 
3240 
3259 
3269 
3279 
3289 
3299 
3399 
3319 
3329 
3339 
3349 
46,189,9 
3359 REM 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


3369 

3499 

3410 

3429 

3439 

344 

3459 

346 

3470 

3480 

3499 

3599 

3519 

3520 
3530 
3549 

3559 

3560 

3600 
3610 
3620 
3630 
3640 
3650 


M g ♦ 

M 4/'////////////// 

M B 4 

/////a////////•■/* 4 

mb * 

m 4/*v ///////a///// 

M 

/////B////////"/* 4 

M » 

M 0/ 8” // 

//////////////////// 

18,01,5,30,101,3400,142,54,1 

.X..Y.LC.MC.MK.RS ...MIHDA 


REM 

REM Mur.FAC,skarby,rezerwa,tlo 
DATA 139,205, 98, O, ' 18 

//////////////////// 


DOTA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM 

REM Mur.FAC,skarby,rezerwa,tlo 
DATA 138,205, >6, 0. 18 

//////////////////// 


M 

M 

M 

M 

M 

M 

M 

M 

M 

m 


///.“/ 

///../....../ 

///••/•••.„/ 

7/ 4!/*■ 

//V 

//■• a 

787 "77 
777 "77 
■■ 770 077 
777777777/7787777777 

11,01,4,15,23,3690,105,150,0 
X. Y.LC.MC.MK.RS. . KIMDA 


DATO 

DATA 

DATO 

DATA 


3660 DATA 
3679 DATA 


3699 

3699 

3789 

3719 

3729 

3739 

3749 

3758 

3769 

3890 

3810 

3620 

3830 

3840 

3850 

3868 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

4080 

4019 

4020 
4839 
4040 
4050 
4060 
4070 
4080 
4098 
4199 
4118 
4129 
4138 
4149 
4158 
4169 


77777777777777777777 

10,01,2,185,88,3689, 8 
.X..V.LC.MC ,NK.N5 . MIHDA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM 

REM Mur.FAC,skarby,rezerwa,tlo 
DATA 138,205, 18, 8, 16 

DATA 77/777777/7777777777 
DATA M [J ł 

DATA M ♦ 

DATA M ♦ 

DATA M ♦ 

DATA M •••• ♦ 

DATA * ,m ♦ 

DATA M ■■■• ♦ 

DATA M ■••• ł 

DATA M ••>• ł 

DATA Mg B ♦ 

DATA 77777B777M77777777B7 
DATA 12,19,3,29,23,4988,191,91,8 
REM .S.. V LC MC . MC. MS . MIHDA 
REM 

REM Mur.FAC,skarby,rezerwa,tlo 
DATA 138,295, 88, 9 18 

DATA 77/77/77777777777777 
DATA M ♦ 

DATA /•■////////■•/////M ♦ 

DATA M g 

DATA 7777777* *777777777 

DATA M * 

DATA //“///Z* ♦/// ,, //// ,, 7 
DATA 7 t* 

DATA 7777WB ♦///. 7 

DATA * *//• 0 a/ 

DATA «G * 

DATA 78/77777>77777777777 
DATA 19,10,5,ii,75.9909,169,169,9 
REM .X. Y.LC.MC.MK.MS. . MIHDA 
REM 


f' 



















W pierwszym odcinku prezentu¬ 
jącym Język FORTH poznaliśmy 
dwa podstawowe słowa oraz *;* 
(dwukropek 1 średnik). Znajomość 
Ich działania będzie nam obecnie 
potrzebna, dlatego tez radzę zaj¬ 
rzeć do poprzedniego numeru TA 

Nie będi* przedstawiał Języka 
FORTH w sposob chronologiczny 
Zwolenntków tej metody odsyłam 
do studiów na wydziale Informaty¬ 
ki, gdzie pierwszy kontakt z Języ¬ 
kiem programowania zaczyna się 
od poznania błędów a kończy na 
metodach poprawnego programo¬ 
wania. Postawmy przed sobą pler 
wsze praktyczne zadanie do roz¬ 
wiązania w języku FORTH Napisać 
słowo odczytujące aktualny stan ze¬ 
gara Nazwijmy Je ZEGAR'«’. Aby 
rozwiązać ten problem niezbędna 
będzie znajomość podstawowych 
operacji na liczbach 

W Języku FORTH standardowa 
liczba zajmuje dwa bajty. Jest to 
więc liczba całkowita z zakresu 
0-65535. W tym momencie musimy 
wesprzeć ten wykład środkiem au 
dlowtzualnym Jakim Jest kompu 
ter Włączamy więc naszą ukocha 
ną maszynkę I wczytujemy FORTH 
Gotowe? Jeśli tak, to napiszmy na 
ekranie liczbę 3 I zatwierdźmy kia 
wlszem RETURN Pojawił się napis 
OK, czyli w porządku Co Jednak 
stało się z tą liczbą'* Czy zginęła 
w bezkresnych obszarach pamięci 
naszego komputera'* Napiszmy te¬ 
raz (kropka), zatwierdzając Jak 
poprzednio klawiszem RETURN 
Napisana wcześniej liczba została 
wyświetlona na ekranie. Stąd wnio¬ 
sek. ze przebywała ona jakiś czas 
w pamięci komputera Czy było to 
ściśle określone miejsce? Napiszmy 
teraz kolejno trzy liczby- 

1 creiKEi 


W miejscu gd/le widnieje zna¬ 
czek i.UłUflfl należy nacisnąć taki 
klawisz, nic należy tego przepisy¬ 
wać Co stało się z tymi liczbami, 

czy liczba następna skasowała po- 


przedną? Ano sprawdźmy, 
piszemy: 

• ansa 

• EHE3J 

• Emm 

Na ekranie pojawiły się kolejno. 
3 2 1 Odzyskaliśmy więc wszystkie 
wprowadzone liczby, ale od końca 

Wszyscy, którzy mieli do czynie¬ 
nia z ASEMBLEREM (a wsrod czy¬ 
telników TA na pewno takich nie 
brakuje), znają ten sposób składo¬ 
wania liczb Strukturą, która za pa 
mlętała nasze liczby. Jest STOS 
W Języku FORTH stos pełni ważną 
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65535 amaa 


DZIAŁANIA 


rolę 'systemu nerwowego’, bez któ¬ 
rego zamarłby przepływ Informacji 
(danych) między poszczególnymi 
słowami. Zastępuje on w znacznej 
części ZMIENNE wykorzystywane 
do tego celu w innych Językach. 

CO TO JEST STOS? 

EMa początkujących kilka słów wy¬ 
jaśnienia, co to Jest stos? Wyobraźmy 
sobie, ze nasze liczby 1. 2,3 zapisze¬ 
my na oddzielnych kartkach papieru 
(mogą być gliniane tabliczki). Nastę¬ 
pnie kładziemy na stole kartkę z licz¬ 
bą 1, na nie) - z 2. a na końcu z licz¬ 
bą 3. Tę stertę kartek nazywamy 
STOSEM. Jeżeli chcemy odzyskać te 
liczby, ściągamy Je ze stosu. Na 
wierzchołku mamy liczbę 3; po zdję¬ 
ciu Ję| ze stosu uzyskujemy dostęp 
do 2. a na końcu - 1. W taki to spo¬ 
sób postępował komputer ściągając 
ze stosu 1 wyświetlając na ekranie 
nasze liczby. Po co jednak kompliko¬ 
wać sobie życie układając liczby Jed 
ną na drugiej? Można przecież rozło¬ 
żyć kartki na całe) powierzchni stołu, 
mielibyśmy wtedy bezpośredni do¬ 
stęp do każdej liczby. To samo moż¬ 
na by wykonać w pamięci kompute¬ 
ra. Zauważmy Jednak, ze składając 
liczby na stos komputer nie potrze¬ 
bował żadne) Innej Informacji oprócz 
samej liczby Chcąc umieścić liczbę 
w dowolnym miejscu pamięci musi¬ 
my podać adres Także podczas po¬ 
bierania liczby należałoby określić 
miejsce. 

LICZBY... 

Skoro znamy Juz zasadę funkcjo¬ 
nowania stosu, powróćmy do sa 
mych liczb. Wspomniałem, ze zaj¬ 
mują one 2 bajty pamięci, a więc 
jedna komórka stosu zajmuje tyle 
samo. gdyż musi pomieścić całą 
liczbę. Czy Jest tak rzeczywiście"'* 
Napiszemy teraz największą liczbę 
dwubajtową, czyli: 

65535 EHBĘg) 

Znanym Juz nam sposobem wy 
wołujemy Ją na ekran przy pomocy 
sekwencji. 

. EHEEg) 

Ukazała się liczba -1 Czyzby 
komputer się pomylił ? Piszemy Je¬ 
szcze raz: 


Tym razem zamiast słowa 
(kropka) wpisujemy: 

u. BMaa 

Na ekranie widzimy wprowadzo¬ 
ną liczbę Co się więc stało za pier¬ 
wszym razem ? Słowo (kropka) 
Interpretuje liczbę na stosie jako 
tzw liczbę ze znakiem. Siódmy bit 
bardziej znaczącego baj tu liczby 
Jest Interpretowany Jako znak mi¬ 
nus. Dzięki temu uzyskujemy za¬ 
kres od -32768 do 32767 

Dla początkujących wyjaśnię mo¬ 
że, co to znaczy siódmy bit bardziej 
znaczącego ba) tu Przedstawmy na¬ 
szą liczbę w systemie dwójkowym, 
a wszystko będzie Jasne: 


BZB MZB 


r 


iiiiiin 


liiiiin 


7 bit bardzie) znaczącego baj tu li¬ 
czby zaznaczono strzałką. BZB to 
bardziej znaczący bajt. MZB to 
mniej znaczący bajt. 


Nie będę na razie tłumaczył całe 
go mechanizmu liczb ze znakiem, 
należy jedynie pamiętać ze liczby 
większe od 32767 będą traktowane 
jako ujemne Wykonajmy Jeszcze 
jedną próbę wprowadzania liczb na 
stos; tym razem piszemy: 


32768 hHflhEl 
l wyświetlamy na ekranie: 
. EBBEE 


Następnie wpisujemy: 

32768 CDfflEE! 

I wyświetlamy 

u. EBEES) 

Mam nadzieję, ze jest jasne dla 
czytelników to, co się stało podczas 
wykonywania tych działań. 

Poznaliśmy dwa nowe słowa 
I "U.' (kropka i U kropka) wyświet¬ 
lające liczby ze szczytu stosu 
w dwóch różnych formatach. Przy¬ 
jęło się, ze litera U w nazwie ozna¬ 
cza Interpretowanie danych na sto¬ 
sie Jako liczby bez znaku 


Aby móc zrealizować zadanie po¬ 
stawione na początku artykułu, 
musimy poznać podstawowe dzia¬ 
łania na liczbach. Są to- +. -, *. /. 
Znamy Je przecież dobrze ze szko¬ 
ły. Tym, którzy do szkoły nie cho¬ 
dzili, przypominam, że są to odpo¬ 
wiednio: dodawanie, odejmowanie, 
mnożenie 1 dzielenie. Chcąc Je wy¬ 
próbować, musimy poznać 

ODWROTNĄ NOTACJĘ 
POLSKĄ 

Wszystkim, którzy w tym momen¬ 
cie pragną porzucić dalszą lekturę 
tego artykułu, radziłbym się nie 
śpieszyć. Mam nadzieję, ze uda ml 
się objaśnić ten odstraszający ter¬ 
min. Zacznijmy może od stwierdze¬ 
nia. ze wszystkie słowa Języka 
FORTH (standardowe Jak 1 stwo¬ 
rzone przez nas) są równoprawne. 
Można więc powiedzieć, ze w Języ¬ 
ku FORTH panuje Idealna demo¬ 
kracja. Poznane do tę) pory słowa 
lub 'U.' potrzebowały obecności 
Jednego parametru na stosie: była 
to liczba zajmująca aktualny szczyt 
stosu Działania * t / są także 
słowami FORTHa z tą różnicą, ze 
potrzebują dwóch parametrów (da¬ 
nych wejściowych). Wszystkim za 
pewne wiadomo, ze operacja + Jest 
dokonywana na dwóch liczbach. 
Ponieważ każde słowo Języka 
FORTH (wymagające parametrów 
wejściowych) pobiera dane ze sto¬ 
su. lakze działania matematyczne 
szukają liczb na stosie Uczono nas 
w szkole, że do rozwiązania zada¬ 
nia są potrzebne dane wejściowe; 
następnie wykonuje się zadani: 

1 znajduje wartość szukaną. Logika 
zapisu działań matematycznych wy¬ 
niesiona ze szkoły jest Jednak zu¬ 
pełnie inna. Przyjrzyjmy się zapiso¬ 
wi. 2+3. Najpierw piszemy pier¬ 
wszą daną- 2, potem działanie, któ¬ 
re należy wykonać (ale Jak wykonać 
dodawanie na Jedne) dane)?), l do¬ 
piero za działaniem znajduje się 
druga potrzebna dana: 3. W Języku 
FORTH będzie to wyglądało nastę¬ 
pująco; 

2 3+ 1;H(H:1.I 

Pamiętać o spacjach! Działanie 
przebiegło poprawnie l na ekranie 
pojawił się napis OK. Co się Jednak 
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stało z wynikiem"? Nie został prze¬ 
cież wyświetlony na ekranie Więk¬ 
szość czytelników domyśla się za 
pewne,ze wynik znajduje się na sto¬ 
sie Sprawdźmy, pisząc: 

Gdyby nie wyświetlać tej sumy na 
ekranie, mogłaby ona posłużyć Jako 
dana wejściowa dla następnej ope¬ 
racji. Napiszmy więc Jeszcze raz 

23+ EHPna 

Mamy na stosie wyliczoną sumę, 
dopiszmy Jeszcze: 

4 * HUMUS 

(czy wiesz, dlaczego jedna dana"?) 
i wyświetlamy wynik 

. mum 

Zostało wykonane działanie, które 
w szkolnym zapisie miałoby postać: 

(2+3)*4 

Widać wielką zaletę Odwrotnej 
Notacji Polskiej, a mianowicie brak 
nawiasów wymuszających pier¬ 
wszeństwo dla danego działania 
Wszystkie działania w Języku 
FORTH są wykonywane zawsze 
w kolejności zapisu. Czytelnikom 
proponowałbym spróbować swych 
sił w następującym przykładzie: 

(l+2*3)+(l+2)*(2+3) 

Proszę zapisać to wyrażenie w ję¬ 
zyku FORTH 1 wyświetlić wynik 
Czytelnik, który pierwszy prześle 
poprawny zapis na adres redakcji 
otrzyma bezpłatnie grę "A D 2044 

-owrócmy Jednak do naszego 
głównego celu a mianowicie stwo¬ 
rzenia słowa ZEGAR (o (znak "(a" 
azywa się po angielsku "at" czytaj: 
et w Polsce bywa zwany robakiem, 
embrionem, małpą) Niezbędne 
okażą się nam jeszcze dwa bardzo 
ważne słowa języka FORTH: 
C(ffi 1 @ 

Pierwsze z nich umieszcza na 
stosie zawartość komórki, której 
adres znajdował się na stosie jako 
dana wejściowa Drugie słowo wy¬ 
konuje to samo, lecz pobiera war 
osć z dwóch kolejnych komorek 
pamięci gdzie wartość spod wyz 


szego adresu będzie traktowana Ja 
ko starszy bajt liczby Uwaga sło¬ 
wa te interpretują oczywiście daną 
wejściową (adres) jako liczbę bez 
znaku. Wypróbujmy działanie tych 
słów na komputerze Piszemy 

82 c@ . nrenirm 

Na ekranie została wyświetlona 
szerokość lewego marginesu Spró¬ 
bujmy Jeszcze następującego zapi¬ 
su: 

88 @ . H 

Na ekranie pojawiła się liczba 
określająca adres początku ekra¬ 
nu. A teraz ciekawostka: co wy¬ 
świetli następująca sekwencja 
słów: 

88 @ c@ . rrnuim 

Przeważnie liczbę 0. gdyż została 
pobrana wartość z pierwszej ko¬ 
mórki ekranu, a tam znajdował się 
kod ekranowy spacji Poznaliśmy 
do tej pory wszystkie słowa nie¬ 
zbędne do wykonania zadania po¬ 
stawionego na początku artykułu. 
Musimy sobie Jeszcze przypomnieć, 
gdzie znajdują się komorki zegara. 
Mają one adresy 18. 19 1 20 Ko¬ 
morka 20 zwiększa swoją wartość 
co 1/50 sekundy, komórka 19 - po 
każdym przepełnieniu komorki 20, 
a 18 - po przepełnieniu 19 Nasz 
pierwszy zegar zbudujemy na 
dwóch komórkach 19 i 20 Nie 
można wykorzystać słowa (a do po 
brania zawartości łych komorek 
(dlaczego"?) Musimy zastosować 
słowo C(a i pobrać wartości z kaz 
dej komorki oddzielnie. Piszemy 
deklarację słowa ZEGAR a 

: ZEGARA 20 C@ 19 C@ 

256 * + ; EBiinni 

Wyjaśnię kolejne kroki naszego 
postępowania 

: - służy do deklarowania słów 
(otwiera deklarację), 

ZEGAR(«i - taką nazwę będzie 
miało tworzone słowo 

Słowa znajdujące się między na¬ 
zwą a średnikiem, zostaną zakodo¬ 
wane w pamięci I będą wykonam 
dopiero po wywołaniu stworzonego 
słowa. Będą one działały w nastę¬ 
pujący sposob- 


20 C@ - pobierze wartość z ko¬ 
morki 20 i umieści ją na stosie. 

19 C(S - to samo dla komórki 

19. 

256 • - wprowadzi na stos liczbę 
256 i wykona mnożenie na dwóch 
liczbach będących najbliżej szczytu 
stosu Będzie to zawartość komorki 
19 1 liczba 256. 

+ - doda wyliczony iloczyn do 
wartości pobranej z komórki 20. 

; - kończy deklarację nowego sło¬ 
wa. 

Jeżeli kompilacja zadeklarowa 
nego przez nas słowa przebiegła 
prawidłowo, znajdzie się ono 
w słowniku. Sprawdzamy: 

VLIST Eremu?) 

Teraz możemy sprawdzić Jego 
działanie 

ZEGARg . GHM3J 

1 po chwili znów 
ZEGAR0 . EETO 

Liczby wyświetlone na ekranie 
różnią się od siebie, a więc nasz ze¬ 
gar "chodzi". Mamy nowe słowo 
w pamięci. lecz po wyłączeniu kom¬ 
putera tracimy Je bezpowrotnie Co 
zrobić, aby tego uniknąć"? Jeżeli po¬ 
siadamy implementację Extenried 
fig-FORTH. sprawa Jest prosta Po¬ 
siadacze magnetofonów piszą 

csave GBEHE) 

1 zapisują Język FORTH rozbudo¬ 
wany o słowo ZEGARA na czystą 
kasetę Właściciele stacji dysków 
robią to samo. lecz słowem 

SAVE n 

Uwaga' dyskietka musi byc sfor¬ 
matowana w gęstości S lub E Po¬ 
winna byc czysta, gdyż wszystkie 
dane wcześniej zapisane Izwłasz 
cza w początkowych sektorach) 
mogą ulec zniszczeniu 

Roland Pan tal a 
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W pewnym radzieckim kołchozie cnibywa się pokaz 
filmowy Pierwszy w tym rejonie, więc nie dziwnego, ze 
niewielka izba az trzeszczy w szwach. Nieprawdopo¬ 
dobna duchota, błyszczące oczy wpatrzone w ruchome 
obrazki, terkot projektora, z ktorego obraz próbuje 
przebić się przez zawiesinę machorkowego dymu - 
normalka Nagle - wrzawa, śmiechy 1 kilkanaście cza 
pek ląduje na brudnej 1 pomiętej płachcie ekranu Sala 
pustoszeje. "Ludzie, co Jest'?" - operator łapie za rękaw 
ktoregos z wychodzących "Panie - słyszy - od razu po 
dojrzewaliśmy, ze to Jakaś lipa 1 Kareta Jedzie do przo¬ 
du. a koła kręcą się do tyłu’" 

Minęło parę ładnych lat. a ekranowe koła tak Jak 
dawniej kręcą się czasami w stronę przeciwną do kie¬ 
runku Jazdy Dlaczego'? Przeprowadziłem ankietę, a jej 
wynik Jest straszny 1 Na kilkudziesięciu ludzi (od 2- 
tygodnlowego niemowlaka do 80-letnlego staruszka) 
tylko kilku umiało wyjaśnić to zjawisko Co to znaczy”? 
Przenosząc wyniki z próbki reprezentatywnej na całosc 
badanej populacji (przepraszam, ale ci od statystyki 
tak to nazywają) okazuje się. ze prawie 100 lal od wy¬ 
nalezienia kinematografu ponad 30 milionów Polakow 
nie wie. dlaczego czasami filmowe koła kręcą się prze¬ 
ciwnie do kierunku Jazdy* Patrzcie, młodzi, do czego 
doprowadził komunistyczny system oświatowy - zęby 
tyle lat utrzymywać ludzi w niewiedzy. Ale teraz mamy 
wolną prasę Wyjaśnię więc. dlaczego Pan Hrabia Je 
dzle do przodu, a koła kręcą się do tyłu 

Układ oko-mózg to nie ultraszybka kamera 1 |csll 
coś wydarzy się w czasie krots/ym. ntz ok 0.05 sekun¬ 
dy. to nasza świadomość zachowa się tak. Jakby tego 
nie było Oczywiście, oko pokaże odpowiedni obraz, ale 
to tylko bezmyślna galaretka - taki tam sobie półauto¬ 
matyczny skaner (przepraszam poetow. malarzy I aktu¬ 
alnie zakochanych) Wprawdzie niejaki Freud wyiny 
ślił ze człowiek ma coś tam jeszcze oprocz swladomo 
ści - taki obszar poniżej RAM (przepraszam psychia¬ 
trów. surreallstow 1 aktualnie pijanych) - ale o tym. co 
widzi podświadomość, może innym razem Jeśli poka 
żerny więc naszemu oku serię obrazow z lak dobraną 
prędkością, aby ich zmiana nic trwała dłużej, niz 
wspomniane wyżej 0,05 sek . io co wyjdzie'? Tak. lak - 
wyjdzie kino 

Właśnie - kino* Przenieśmy się więc na plan zdjęcio¬ 
wy Oto nagrywana Jest lllmowa wersja 725 odcinka 
Dynastii W wiejskiej posiadłości Blakc’a Jego dziewiąte 
dziecko odbywa przejażdżkę nic wielkim powozem Fil¬ 
mowa kamera kwantu|e ruchomy obraz (przepraszam 
fizyków rzeźnikow 1 aktualnie będących w szkole), 
utrwalając go ze stałą prędkością w kole|nych klatkach 
taśmy Powoź dojeżdża do kamery I tu powożący tnie 



balem konia Pojazd przyspiesza. Jeszcze tylko najazd 
kamery na oddalającą się bryczkę i słyc hac "Ok koniec 
na dzisiaj!" 

Zobaczmy co stało się w momencie, gdy powożący 
"włączył turbo" Każde porządne koło ma szprychy W\ 
chodzą one z centralnego punktu koła. tworząc między 
sobą Jednakowe kąty Jeśli powoź porusza się ze siała 
niewielką prędkością lo szprychy ł>ędą w kolejnyc h 
kadrach filmu obrócone zawsze o niewielki stały kat 
co da przy wyświetlaniu wrażenie płynnego obrolu 
w kierunku Jazdy Jeśli Jednak pojazd przyspieszy lo 
zwiększy się również kąt obrotu szpryc h na dana jęci 
noslkę czasu SpowcxluJe to pewne zamieszanie w na 
szej ekranowej obserwacji Powinna być tu teraz seria 
poglądowych rysunków, ałc do licha! - c zy nie |est to 
przypadkiem czasopismo komputerowe”? 

Program PROJEKTOR wyjaśni wieje, ale na|pierw 
poeksperymentujmy' Zdaję sobie sprawę ze w ostat 
nich latach wszelkie eksperymentowanie nie ma na 
ogoł dobrych skutków - a to doświadczalne sprawdza¬ 
nie. Jak zachowa się XIX wieczny kapitalizm w pan 
stwte końca XX wirku (przepraszam ministrów, bi 
znesmenow i aktualnie bezrobotnych), to znów jakieś 
"gorące termojądrowe fuzje" z zimną Coca-Colą na sio¬ 
le. ze nie wspomnę eksperymentów facetów z Czarno¬ 
byla, sprawdzających “Jak długo dynamo da prąd kie¬ 
dy nie naciskamy juz na pedała" Jednak pcx'kspcry- 
mentujmy* Wez. drogi Czytelniku, talerz szklankę wo 
dy i Jakiś kroplomierz Pcxlejdz teraz do telewizora, 
włącz go, wybierz kanał bez żadnej audycji 1 wszystkie 
potencjometry poza głośnością przesuń "na fuli" Teraz 
przed samym ekranem wypuszczaj równomiernie kro 
płe wcxly To. co zobaczysz, będzie przypominało nie- 
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które teledysk! z MTV - fajne, ale "tak daje po oczach, 
że długo nic popatrzy" 

Zawieszone w powietrzu kropelki są efektem strobo¬ 
skopowego zachowanta się lampy kineskopowej 
(oświetla ona lecącą kroplę nie w sposób ciągły, lecz 
równomiernymi błyskami - ok 20 na sekundę), dlate 
go przed ekranem widzimy sznur pojedynczych kropli 
z coraz większymi odstępami - bo lo ruch jednostajnie 
przyspieszony, co wiadomo Juz od czasów eksperymen¬ 
tów Galileusza na krzywej wieży w Pizie (przepraszam 
wstydliwych 1 aktualnie bez dziewczyny). Jeśli leraz nie 
zmieniając położenia ręki śo śniemy zakraplacz nieco 
bardziej, lo wypuścimy zeń w tym samym czasie więcej 
kropli, aniżeli poprzednio Krople miast pojawić się 
w znanych Juz nam miejscach przedekranowej prze¬ 
strzeni. pojawią się nieco wyżej. To. co zobaczymy, bę¬ 
dzie paradoksalne, wyda się nam bowiem, że krople 
wędrują z dołu do góry. tak Jak na telewizyjnych po¬ 
wtórkach. 1 to wyjaśnia zjawisko "zbzikowanych kół": 
przyspieszająca kareta powoduje, że ekranowe szpry 
ehy nie trafiają na swoje miejsce, lecz tuz przed nim - 
odbierzemy to Jak obrót koła w drugą stronę. 

Teraz dwa słowa o programie. Najpierw to. co widać 
- oto na górskiej łące pllol rozgrzewa śmigłowiec Dwa 
podstawowe pytania Jakie zapewne pojawią się u czę¬ 
ści Czytelników, którzy uruchomią len program, będą 
takie- skąd on wziął takie ładne góry l dlaczego nie ma 
Ich na całym ekranie? Skromność to zapewne dobra 
cecha, ale co ml tam - te góry są naprawdę niezłe' 
Wszystko to dlatego, zęby pokazać Jednym, a przypo¬ 
mnieć drugim o zapomnianej nieco grafice 9 Jest ona 
(podobnie. Jak 10) godna uwagi chocby dlatego, ze 
można tu bezpośrednio wykorzystywać 15 kolorów (w 
GR 10-9 kolorów) przy niezłej rozdzielczości 
80x160. 

Wróćmy do drugiego pytania - dlaczego 
nic na całym ekranie'-* Problem kręcących 
się kół był między Innymi pretekstem do 
pokazania pewnego sposobu komputero 
wej animacji nazywanej często techniką 
"przewracanych kartek" Wśród czytelni 
kow TA Jest zapewne ogromna rzesza lu 
dzl młodych, rozpoczynających dopiero 
swoje zmagania z komputerem Naduży¬ 
wany przez nich sposób animacji "COLOR 
1. narysuj. COLOR 0. zmaz" z powodu 
swej szybkości prowadzi do nerwic I mo¬ 
czenia nocnego. Tymczasem bardzo czę¬ 
sto animowany obraz ma przedstawiać 
zjawisko cykliczne, które można rozłożyć 
na regularnie powtarzające się fazy Tak. 
jak kinowy obraz zapisany Jest w poszcze¬ 
gólnych klatkach filmu, tak i my możemy 
stworzyć serię obrazów zapisując Je 
w pamięci komputera l wyświetlać "w kol¬ 
ko" z dobraną przez nas kolejnością Tu 
również występuje problem szybkości, ale 
z krańcowo innego powodu - Jest ona naj 
częściej tak duża. że musimy wprowadzać 
do programu pętlę spowalniającą Jako. 


ze nie ma na śwlecle nic doskonałego (przepraszam 
Idealistów 1 aktualną Miss Pokinla), tak 1 nasza metoda 
animacji ma swoje wady. Pierwsza, lo niewielka lu/tw 
możliwych do przygotowania obrazów, zaś drugi man 
kament. to fakt. ze w trybach o większej rozdzielczości 
nic zawsze możliwe Jest bezpośrednie tworzenie rysun¬ 
ku na całym ekranie Nie będę dokładnie opisywał wy¬ 
mienionej tu metody animacji, gdyż podręczniki pro¬ 
gramowania robią to ohszernle I wyczerpująco (/ob 
również TA. np 3. 6/91). zaś tym. którzy chcieliby juz 
leraz poek.sperymentować. proponuję oprzeć się na 
wyróżnionych liniach programu PROJEKTOR - stano¬ 
wią one Istotę algorytmicznej konstrukcji tc« hmkl 
przewracanych kartek. 

Wróćmy Jeszcze do programu, nasz helikopter roz¬ 
grzewa się z trzema rożnymi prędkościami obrotu sml- 
gleł. które będę tu nazywał "biegami" Na 1 biegu śmigła 
główne obracają się o 9 stopni i daje to wrażenie 
w miarę płynnego ruchu. Bieg II. to obrot o 18 stopni 
co przy 45-stopntowym kącie pomiędzy łopatami powo¬ 
duje Już pewne kłopoty z określeniem kierunku obrotu 
zaś przejście na III bieg w pełni Ilustruje omawiam /ja 
wisko Tutaj śmigła obracają się o 27 stopni na klatkę 
co odbierzemy, jako obrot wirnika w przeciwną stronę 

Drogi Czytelniku Jeśli ktoregos dnia, Idąc ulica zo 
baczysz, że koła przejeżdżającego pojazdu kręcą sit, 
przeciwnie do kierunku Jego Jazdy, stan l rozejrzyj się 
uważnie Mozę to wszystko dookoła, to rekwizyty |x> 
przedzielane trójwymiarowymi bluc -boxaml lub tez mo¬ 
że Ty sam Jestes częścią Jakiegoś Programu (kio czytał 
Snerga lub oglądał TRON. wie o czym mówię) Niepra¬ 
wdopodobne? Czy nigdy nie doświadczyłeś uczut la /» 
lo Juz było, ze to Juz gdzieś widziałeś l przeżyłeś? A wi¬ 
dzisz! ONI (am. na GÓRZE też znają metodę "przewra¬ 
canych karlek"' 
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DM 5 REM PROGRAM PROJEKTOR 
SV 10 GRAPHICS 0:? "GASIMY EKRAN ( NA 1 M 
IN.)":FOR W=0 TO 500:SOUND 0,50,12,12: 
NEXT W:SOUND 0,0,0,0 

EQ 15 POKE 752,1:POKE 88,0:POKE 89,65:? C 
HR$(125) 

W 20 GRAPHICS 9:DEG :A=129:D=PEEK(560 )+2 

56*PEEK(561) 

XK 25 ALFA=0:BETA=0:DIM B(14),F(59),H(43) 
PF 30 POKE 559,0:REM ZGASZENIE EKRANU 
CY 40 FOR Q=0 TO 14:READ W:B(Q)=W:NEXT Q 
FY 50 FOR G“0 TO 59:READ H:F(G)«H:NEXT G 
KO 60 FOR M=0 TO 43:READ P:H(M)=P:NEXT M 
JI 70 FOR Z»0 TO 4 
RY 80 POKE 89 ' A:POKE 88,0 

XR 90 GOSUB 200:GOSUB 400:ALFA»ALFA+9:BET 
A=BETA+18 

EV 95 A A-16:NEXT Z 

AT 100 REM WYŚWIETLANIE OBRAZOW 

WP 105 POKE 559,34:REM WŁĄCZENIE EKRANU 

CO 110 FOR KOL—1 TO 4 

OT 12£- OM KOL GOSUB 140,150,160,150 

EL 130 GOSUB 170:NEXT KOL:GOTO 110:REM AN 

IMAĆJA OD POCZĄTKU 
SG 140 REM DANE DO “BIEGU" 1 
MZ 145 DZ-40:L-0:Q=0:S=2:G=0:DT=20:RETURN 
VQ 150 REM “BIEG" 2 

JO 155 DZ=20:L»5:Q=60:S“10:G=0:DT=5:RETUR 
N 

»r 160 REM “BIEG" 3 

KJ 165 DZ=30:L=10:Q=30:S=5:G=0:DT=2;RETUR 
N 

MU 170 REM GŁÓWNY PODPROGRAM (LINIA 180 W 
YSWIETLA AKTUALNY OBRAZ) 

HX 175 FOR Z-0 TO DZ:FOR N=L TO L+4 
DE 180 POKE D+5,B(N):POKE D+4,0 
00 185 FOR P=0 TO Q STEP S:SOUND 0,P,12,1 

■ 2:NEXT P:SOUND 0,P,12,G 
LZ 190 FOR T=0 TO DT:NEXT T 
NT 195 NEXT N:NEXT Z:RETURN 
CS 200 REM KRAJOBRAZ 

LN 210 COLOR 14:PLOT 0,96:POKE 765,14:POS 
ITION 0,0:XIO 18,16,0,0,“S:" 

IZ 220 FOR J=0 TO 59 STEP 5 
ES 230 KOL=F(J):POCZ=F(J+l):KON=F(J+2):Y= 
F(J+3):DY«F(J+4) 

DX 240 COLOR KOL:FOR X=POCZ TO KON:PLOT X 
. ,96:DRAWTO X,Y:Y=Y+DY:NEXT X:NEXT J 

EX 250 COLOR 15:PLOT 30,10:DRAWTO 45,10:D 
RAWTO 22,12:DRAWTO 38,12:PLOT 32,15:DR 
AWTO 10,16:DRAWTO 25,17 
BM 300 REM HELIKOPTER 
YK 310 COLOR 10:PLOT 18,90 
RI 320 FOR N=0 TO 43 STEP 2:DRAWTO H(N),H 
(N+l):NEXT N 

WJ 330 COLOR 13:FOR Y=72 TO 80 STEP 2:PLO 
T 41,70:DRAWTO 22,Y:NEXT Y 
PS 340 COLOR 14:Y3=71:Y4=73 
MJ 350 FOR 1=0 TO 8:PLOT 17,Y3:DRAWTO 21, 
Y4:PLOT 15,Y 3:DRAWTO 11,Y4:Y3=Y3+2:Y4 = 
Y4+1:NEXT I 

JE 360 COLOR 15:DRAWTO 22,77:DRAWTO 40,71 

2P 380 RETURN 
NL 400 REM ŚMIGLA 

BO 410 COLOR 15:FOR KAT=ALFA TO ALFA+360 
STEP 45:X1=1l*COS(KAT):Yl=7*SIN(KAT):V 
= 15 *COS(KAT):U=10*SIN(KAT) 

CY 420 PLOT 16,65:DRAWTO Xl+16,Yl+65:DRAW 
TO V+16,U+67:NEXT KAT 

KT 430 FOR KAT=BETA TO BETA+360 STEP 90:X 
2=2*COS(KAT):Y2=6*SIN(KAT):PLOT 40,70. 


DRAWTO X2+40,Y2+70:NEXT KAT 
ZI 440 RETURN 

SO 1000 REM W WIERSZU 1010 SA ADRESY POCZ 

ATKOWE KOLEJNYCH OBRAZKOM 
3BQ 1010 DATA 129,113,97,81,65,129,97,65,1 
13,81,129,81,113,65,97 
UN 2000 DATA 13,10,30,45,-0.2,13,30,60,41 
,0.2,13,55,70,50,-2,13,70,79,20,0.5,12 
,25,60,50,-0.6,12,60,79,29,1,11 
TI 2010 DATA 40,60,55,-0.8,11,60,79,39,0. 
3,10,25,50,70,-1,10,50,79,45,0.8,8,0,4 

7,10,1.7,6,20,79,92,-0.5 
SB 3000 DATA 6,87,8,82,8,75,10,71,12,71,1 
3,70,19,70,22,72,40,70,40,73,22,80 
UY 3010 DATA 22,85,18,90,23,96,7,96,10,96 
,12,90,10,84,13,81,13,72,16,70,16,62 


Andrzej Czado 



Karol Egeman z Częstochowy pisze na temat "Weryfl 
katora Dyskowego" z TA 7/91 

Na wstępie gratuluję pomysłu. "Wlelogęstosclowy" 
weryfikator Jest naprawdę potrzebny Szkoda tylko, 
ze TEN nie Jest " wlelogęstosciowy" Błąd w liniach 
120. 165. 167 przekreślił współpracę programu 

7 dyskami w podwójnej gęstości Wystarczyło prze¬ 
nieść sekwencję. 

DENSITY=PEEK(208):SIZE=125: 

IF DENSITY=3 THEN SIZE=253 


z Itntl 165, 167 do linii 127! Bez tej poprawki "We¬ 
ryfikator" potrafi odezytac katalog z dysku w gęsto¬ 
ściach pojedynczej t rozszerzonej. Niestety... 


Aby zmienna DEN SITY przyjęła odpowiednią war¬ 
tość Juz w Unii 120, w wyniku działania JunkcJi USR. 
procedura maszynowa powinna wpisywać "co nieco" 
do komórek 212 i 213. 


W Procedurze UNLOCK (S60C) brakuje dwóch roz¬ 
kazów: TAX - zaraz po rozkazie JSR $6E8 oraz TXA 
- po rozkazie STA $D0. a przed rozkazem 
ORA (DO).Y. Na szczęście w programie procedura 
UNLOCK nie Jest używana. 


I 
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Do stworzenia Instalatora DSD zostałem zainspiro¬ 
wany artykułem zamieszczonym w ósmym numerze 
Tajemnic Atarl" pod tytułem "RAM-pIlk". Zastanowi¬ 
łem się, czy w niezbyt skomplikowany sposób można 
symulować dodatkową stację dysków której pliki będą 
umieszczone w pamięci RAM pod ROM-em Przejrza¬ 
łem uważnie książkę Wojciecha Zientary pt, "Mapa pa 
mięci ATARI XL/XE - Dyskowe Systemy Operacyjne" 
1... wymyśliłem. Udało ml się stworzyć program w pełni 
symulujący DSD o identyfikatorze D8 

Instalator po utworzeniu stacji nr 8 zajmuje tylko 
222 bajty 1 spełnia wymogi Imam nadzieję ze wszy 
stkle) rezydentnej nakładki na system. Modyfikuje on 
procedurę RAMDIO, która znajduje się pod adresem 
$1481 Wynika z tego ze IDSD będzie działał tylko 
z DOSem 2 5. Jest to jego poważna wada, ale wielu 
programistów pracuje eraz w tym otoczeniu (przecież 
z takim systemem rozprowadzany jest QA), więc mam 
nadzieję ze znajdzie on niemało użytkowników 

IDSD nie najlepiej współżyje z procesorem komend 
DUP SYS. Wymarzone środowisko dla Instalatora lo 
Dyskowy System Operacyjny 2 5 oraz procesor poleceń 
CP SYS IDSD modyfikuje również nieco procedurę 
XFORMT znajdującą się pod adresem $B70 aby pra 
widłowo była wykonywana operacja formatowania 

Sposob wywołania IDSD za pośredni- lwem CP (w 
przypadku użycia parametrów niezbędne jest podanie 
rozszerzenia COM): 

DSDJ.COM /[T][S][D]] 

• D - dezaktywacja, 

• S - oznacza zachowanie starej zawartości DSD (nie 
Jest ona po prostu formatowana). 

• T - włącza tryb turbo. 

Opcje D i S są. mam nadzteję. jasne. Wyjaśnienia wy 
maga jedynie parametr T. Otóż podczas transmisji 
między komputerem a D8. włączana Jest pamięć RAM 
pod ROMem. Powoduje to. ze w miejscu, gdzie jest 
generator znaków ($E000 - SE3FF). pojawiają się nie¬ 
określone wartości. Efektem tego są śmieci na ekranie. 
Gdy nie podamy parametru T, sterownik D8 będzie 
czekał z transmisją do czasu, kiedy wyłączenie ROM-u 
nie spowoduje brzydkich dla oka efektów (Jest to zre¬ 
sztą sprawa gustu). Dokładnie czeka on. az licznik 
VCOUNT (SD40B) nie osiągnie wartości $70. co ozna¬ 


cza ze wiązka elektronów w kineskopie tworzy (omija) 
niewidoczną część obrazu Należy jednak wspomnieć, 
ze przesyłanie danych w trybie turbo jest kilkakrotnie 

szybsze. 

Do zalet programu należy (akt. ze naprawdę w pełni 
symuluje on stację dysków Na D8 możemy wykonywa 
dosłownie wszystkie operacje, jakie dotychczas wyko¬ 
nywaliśmy na fizycznych stacjach A wlec jest to forma¬ 
towanie. zmiana nazwy pliku, odczyt, zapis Itd Mozę 
my to robić również w taki sam sposob jak poprzednio 
np Instrukcją XIO 

Wady DSD. to brak mo/.llwoscl stosowania progra¬ 
mów. które wykorzystują pamięć pod ROMem. duże 
wymagania co do środowiska pracy oraz fakt wynika¬ 
jący z Istoty tego typu nakładek cała zawartość Dodat¬ 
kowej Stacji Dysków po wyłączeniu komputera bezpo¬ 
wrotnie ginie 


Starałem się stworzyć inteligentną 1 wygodną dla 
użytkownika procedurę Instalującą Za każdym razem 
Informuje ona o przeprowadzonych akcjach Zmienia 
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odpowiednie komórki pamięci aby sterownik DSD nie 
został zniszczony I w sekwencji RESET wykonał nie 
tylko swoją procedurę Inicjującą, lecz także poprze¬ 
dnie. Gdy IDSD wykryje, ze Jest Juz zainstalowany, nie 
zabiera dodatkowej pamięci, a Jedynie aktualizuje się 
według podanych parametrów W razie braku pamięci 
lub niezgodności DOS-u odpowiednie komunikaty po¬ 
jawią się na ekranie Po zimnym starcie (ale bez wyłą¬ 
czania komputera) dane zawarte w D8 można odtwo¬ 
rzyć, uruchamiając DSD z parametrem S 


DSD 

• COM 

/S 

HC 

1000 

REM * 

m : 

1002 

REM : 

m 

1004 

REM : 

YY 

1006 

REM : 

st 

1008 

REM * 

m 

1010 

DATA 

sy 

1020 

DATA 

DW 

1030 

DATA 

xx 

1040 

DATA 

uk 

1050 

DATA 

m 

1060 

DATA 

MA 

1070 

DATA 

DC 

1080 

DATA 

W8 

1090 

DATA 

JX 

1100 

DATA 

EU 

1110 

DATA 

WR 

1120 

DATA 

BY 

1130 

DATA 

FB 

1140 

DATA 

W 

1150 

DATA 

QX 

1160 

DATA 

TJ 

1170 

DATA 

KU 

1180 

DATA 

AU 

1190 

DATA 

OY 

1200 

DATA 

ŁE 

1210 

DATA 

OK 

1220 

DATA 

DŁ 

1230 

DATA 

SŁ 

1240 

DATA 

vo 

1250 

DATA 

YA 

1260 

DATA 

m 

1270 

DATA 

oo 

1280 

DATA 

YR 

1290 

DATA 

vu 

1300 

DATA 

NT 

1310 

DATA 

VP 

1320 

DATA 

GB 

1330 

DATA 

BC 

1340 

DATA 


1350 

DATA 

FA 

1360 

DATA 

BL 

1370 

DATA 

we 

1380 

DATA 

®K 

1390 

DATA 

BQ 

1400 

DATA 

LQ 

1410 

DATA 

oru 

1420 

DATA 

LF 

1430 

DATA 

DT 

1440 

DATA 

YW 

1450 

DATA 

CV 

1460 

DATA 

NE 

1470 

DATA 

DC 

1480 

DATA 

ZF 

1490 

DATA 

GF 

1500 

DATA 

MC 

1510 

DATA 

YX 

1520 

DATA 


Dodatkowa Stacja Dysków 
autor: Dariusz Dziuda 
(c) 1992 Tajemnice ATARI 


FFFF00800A81AD4403 8 5CBAD4 5 
0385CCA90B8D4203A9008D4903 
A272A970A080205880AD0C07C9 
CCD009AD0D07C919D002F00FA2 
18A9F3A0802058802066806C0A 
00A900CDE702A980EDE802B00F 
A211A9E2A0802058802066806C 
0A00608E48038D44038C4503A2 
004C56E4A210A90C9D42034C56 
E49B496E7374616C61746F7220 
446F6461746B6F77656A205374 
61636A69204479736B6F772E9B 
0D0D0D0D0D0D0D0D0D0D0D0D0D 
0D0D0D0D0D0D0D0D0D0D0D0D0D 
0D0D0D0D0D0D0D0D0D0D9B6175 
746F723A204461726975737A20 
447A697564612C202077657273 
6A6120312E3020209B9B9BFDFD 
4272616B2070616D696563692E 
9B9BFDFD4E69657A676F646E6F 
73632044534F2D65676F2E9B9B 
E202E30200800080BD844CE980 
20FFFFADCB128DE702ADCC128D 
E802A94A8D2013 60F005A54 64C 
8E0B2025804CC21220A980A9FB 
8D3380A080A9009900FBC8D0FA 
EE3 3 80D0F5A902 8D80FBA9 6 7 8D 
81FB8D83FBA9FFA00B998BFB88 
10FAA90F8D8AFBA9 E08D97FB4C 
BD807 808AE0B03 F017CAD00FAE 
0A03E0689008E071B004CA8AD0 
0F2858A08B60AD0A0338E904C9 
67B0F1209D14A5336 9C0C 9 D090 
0269078533AD040320A81420A9 
80A07F2820B2144CBD8020C880 
A90185428D0ED478AD01D329FE 
8D01D360AD01D309018D01D34C 
C914AE0BD4E070D0F9608E4 803 
8D44038C4503A2004C56E4C961 
9006C97BB002E91F60A90085CD 
A000B1CBC 9 2 FF007C 9 9 BF02 8C 8 
D0F3B1CB20DE80C944D0014C1C 
82C954D00506CD3866CDC953D0 
054 6CD3 82 6CDC 9 9BF003C8D0DB 
A21CADF982ACFA8248ADD312F0 
0A68A21BADE782ACE882486820 
D080ADD312D0I0ADD41285CBAD 
D51285CCA000A9AE91CBA5CD0A 
089025A214ADED82ACEE8220D0 
80A2608EC880ADD312D010ADD4 
1285CBADD51285CCA000A9 6091 
CBA221ADEB82ACEC8228D00B20 


KM 

1530 

DATA 

XF 

1540 

DATA 

EL 

1550 

DATA 

WM 

1560 

DATA 

DC 

1570 

DATA 

KR 

1580 

DATA 

TJT 

1590 

DATA 

YC 

1600 

DATA 

WQ 

1610 

DATA 

RP 

1620 

DATA 

RG 

1630 

DATA 

xw 

1640 

DATA 

KB 

1650 

DATA 

AA 

1660 

DATA 

OD 

1670 

DATA 

PL 

1680 

DATA 

IB 

1690 

DATA 

NT 

1700 

DATA 

FE 

1710 

DATA 

SM 

1720 

DATA 

IA 

1730 

DATA 

IT 

1740 

DATA 

GJ 

1750 

DATA 

NP 

1760 

DATA 

OT 

1770 

DATA 

RD | 

1780 

DATA 

LU 

1790 

DATA 

DS 

1800 

DATA 

20 

1810 

DATA 

SŁ 

1820 

DATA 

ZS 

1830 

DATA 

m 

1840 

DATA 

QV 

1850 

DATA 

KG 

1860 

DATA 

m 

1870 

DATA 

ŁC 

1880 

DATA 

MZ 

1890 

DATA 

IO 

1900 

DATA 

VG 

1910 

DATA 


1920 

DATA 

DS 

1930 

DATA 

ZZ 

1940 

DATA 

GZ 

1950 

DATA 

YR 

1960 

DATA 

OL 

1970 

DATA 

TR 

1980 

DATA 

GX 

1990 

DATA 

EO 

2000 

DATA 

CT 

2010 

DATA 

YH 

2020 

DATA 

KB 

2030 

DATA 

PK 

2040 

DATA 

EL 

2050 

DATA 

YJ 

2060 

DATA 

IN 

2070 

DATA 

KM 

2080 

DATA 

LY 

2090 

DATA 

KP 

2100 

DATA 

KU 

2110 

DATA 

TU 

2120 

DATA 

YC 

2130 

DATA 

XZ 

2140 

DATA 

LE 

2150 

DATA 

BY 

2160 

DATA 


2 5 80A21DADE982ACEA82 20D080 

ADD312F076A94C8D8A0BADE182 

8D8B0BADE2828D8C0BA94C8D81 

14ADE3828D8214ADE4828D8314 

A9608DA5148DAF148DC414A94A 

8D2013A201B50C9D04809DCF12 

BDDF82950C9DCD12CA10EDADE7 

028DD112ADE8028DD212A9008D 

D312ADE5828DD412ADE6828DD5 

12ADFB828DE7028DCB12ADFC82 

8DE8028DCC12A201ADF182ACF2 

8 24CD080ADD312F00BA21EADF7 

82ACF8824CD080A9068DD312A9 

008D2013A9AD8D8114A90A8D82 

14A9038D8314A9F08D8A0BA947 

8D8B0BA9A5 8D8C0BA9AD8DA514 

A9A08DAF14A9A9 8DC414A21CAD 

EF82ACF08220D080ADCD1285CB 

ADCE1285CCA003A96091CBADE 7 

02CDCB12D037ADE802CDCC12D0 

2FA50CCDCD12D028A50DCDCE12 

D021ADCF12850CADD012850DAD 

D1128DE702ADD2128DE802A21A 

ADF3 8 2ACF4824CC582A21EADF5 

82ACF68220D080A00AB9FB8399 

CB128810F7A201ADF182ACF282 

4CD08000038018806080C880FF 

821A83378358836C8388838983 

A383C183DF83D0800000445344 

207A6F7374616C61207A61696E 

7374616C6F77616E612E9B5072 

7A6570726F7761647A6F6E6F20 

666F726D61746F77616E69652E 

9B4E69652070727A6570726F77 

61647A6F6E6F20666F726D6174 

6F77616E69612E9B416B747977 

6E79207472796220747572626F 

2E9B445344207A6F7374616C61 

207A64657A616B7479776F7761 

6E612E9B9B50616D696563207A 

6F7374616C61207A776F6C6E69 

6F6E612E9B50616D696563206E 

6965207A6F7374616C61207A77 

6F6C6E696F6E612E9BFD445344 

206E6965206A657374207A6169 

6E7374616C6F77616E612E9B9B 

445344206A657374206A757A20 

7A61696E7374616C6F77616E61 

2E9BA0018442AE0F07 3006A614 

0000A9608D0884A90085CFADE 

0285D4ADE80285D538A90085D2 

E5D485D0A98085D3E5D585D1A0 

00F0033866CFA5D2C908A5D3E9 

8490036CE70224CF70633027B1 

D285CE91D420B18 4AAF0DEC9 20 

F017C940F0D9C960F0D5290DC9 

08F0CF90418A291FC909F03AB1 

D2C8C900B1D288E9809012B1D2 

C8C908B1D288E984B006A5D0A6 

Dl900724CF30A1A900AA85D686 

D738B1D2E5D691D420B184B1D2 

E5D74CA984BlD291D420Bii844C 

3384E6D2D002E6D3E6D4D002E6 

D560E002E1020884 


Dariusz Dziuda 
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Pamięć komputera ATARI składa 
się z niewielkich 'cegiełek", zwa¬ 
nych bajtami. Pojedynczy bajt ma 
taki akurat rozmiar, by zmieścić 
liczbę z zakresu O..255 (lub Jeden 
znak). To niewiele. Dwa bajty tra¬ 
ktowane Jako Jedna liczba pozwala¬ 
ją na zapisanie wartości od O do 
65535. To umożliwia Juz policzenie 
wszystkich bajtów dostępnych 
w komputerze (dla uproszczenia 
można na chwilę zapomnieć o do¬ 
datkowej pamięci w komputerach 
typu 130X15). Jest ich bowiem 
właśnie 65536. Pamiętajcie, ze nu¬ 
meracja zaczyna się od O. Bajty 
ułożone są po kolei 1 posługując się 
takim numerem (nazywanym przez 
wtajemniczonych adresem) można 
się zawsze odwołać do konkretnego 
bajtu. 

Używając w BASIC-u zmiennych 
uzyskuje się dostęp do pewnych ob¬ 
szarów pamięci specjalnie wydzie¬ 
lonych w tym celu, lecz nie sposób 
sięgnąć do dowolnego jej fragmen¬ 
tu. Dopiero funkcja 

PEEK ( adres) 

pozwala na obejrzenie każdego baj 
tu. To umożliwia pełniejsze korzy 
stanie z możliwości komputera Dla 
przykładu: pod adresem 53279 za¬ 
pisany Jest stan klawiszy "konsoli" 
(czyli bloku klawiszy OPTION. SE- 
LECT, START). Normalnie znajdu¬ 
je się tam liczba 7, co oznacza, ze 
żaden z tych klawiszy nie Jest na¬ 
ciśnięty. Naciśnięcie któregoś 
z nich zmniejsza tę wartość. Prze 
prowadź test: 

10 PRINT “Test konsoli..." 

20 I“PEEK(53279) 

30 IF 1-7 THEN 20 

40 PRINT "Stan klawiszy: “;I 

RUN 

Przekonasz się bez trudu, ze 
OPTION zmniejsza wspomnianą 
liczbę o 4, SELECT o 2, zas 
START - o 1 W programie może to 
być wykorzystane do wykonania Ja 
klejś akcji np. po naciśnięciu kla¬ 


wisza START. Rozkaz NEW służy 
do całkowitego wymazania z pamię¬ 
ci programu w BASIC-u. 

10 PRINT "Naci$nij START" 

20 IF PEEK(53279)<>6 THEN 20 

30 NEW 

RUN 

Innym ciekawym miejscem w na¬ 
szym komputerze Jest bajt nr 753, 
który wskazuje, czy któryś z klawi¬ 
szy podstawowej klawiatury Jest 
aktualnie naciśnięty. Liczba różna 
od O oznacza naciśnięty klawisz. 
Przeprowadź prostą próbę: 

10 IF PEEK(753) THEN 30 
20 SETCOLOR 4,0,0:GOTO 10 
30 SETCOLOR 4,4,4:GOTO 10 
RUN 

Naciskanie dowolnego klawisza 
powoduje niezwłoczną zmianę ko¬ 
loru obrzeza ekranu. 

Są takie miejsca w pamięci 
komputera, gdzie pewne wartości 
zapisywane są przy użyciu dwóch 
kolejnych bajtów Taką liczbę na¬ 
zywa się słowem lub adresem. 
Mówimy wtedy o młodszym (mniej 
znaczącym) i starszym (bardziej 
znaczącym) bajcie adresu (słowa) 
Młodszy bajt poprzedza przeważ¬ 
nie w pamięci swego starszego ko¬ 
legę Jednostki starszego bajtu są 
256 razy więcej warte, nlz Jedno¬ 
stki młodszego Aby więc poznać 
liczbę zakodowaną w obu bajtach 
słowa, trzeba dodać wartość 
młodszego bajtu do wartości star 
szego pomnożone) przez 256. Na 
przykład pod adresem 128 leży 
(Jak się dowiadujemy z Mapy Pa¬ 
mięci) słowo ŁOMEM, które okre¬ 
śla początek obszaru pamięci zaj¬ 
mowanego przez program w BA¬ 
SIC-u, a więc 

NEW 

10 PRINT “Program siedzi od 
20 PRINT PEEKj128)+256*PEEK(129) 
RUN 

pozwoli poznać adres początkowy 
obszaru wykorzystywanego przez 
BASIC. Dla BASIC-a uruchomione¬ 


go bez DOS-u (COS-u) Jest to liczba 
1792 Inna wartość, na ogół wię¬ 
ksza, świadczy o obecności Jakie 
goś systemu, który zajmuje część 
pamięci. 

Aby w pełni uczestniczyć w życiu 
prywatnym komputera, warto po¬ 
znać jeszcze Jeden rozkaz, odwroi 
ny do funkcji PEEK 

Poke adres, wartość 

Umieszcza on pod wskazanym 
adresem podaną przez nas war 
tość liczbową z zakresu od 0 do 
255 (jeden bajt). Od razu Jednak 
pragnę ostrzec ambitnych ekspe¬ 
rymentatorów. ze nierozważne uży¬ 
cie tego rozkazu szybko się kone/y 
zawieszeniem komputera O ile lx>- 
wiem w przypadku 

LET X=130 

BASIC rezerwuje miejsce w sobie 
wiadomym odpowiednim do tego er 
lu obszarze pamięci, to wykonanie 

POKE 130,42 

spowoduje na ogół katastrofę po 
nie waz BASIC wykonuje rozkaz txv 
zastanowienia, czy po tym kompu 
ter będzie jeszcze zył Dlatego 
przed rozpoczęciem zabawy dobrze 
Jest zapamiętać na dysku (kase¬ 
cie?) program. Jeżeli Jakiś siid/.i 
w komputerze, a do testów uzywar 
komórek dobrze znanych, opisa¬ 
nych w Mapie Pamięci Dobrym 
przykładem jest 

POKE 756,204 

Pod adresem 756 siedzi starszy 
bajt (młodszy Jest zawsze zerem! 
adresu generatora znaków Gene 
rator znaków Jest 1024-bajtowym 
zestawem danych, które decydują 
o wyglądzie znaków wyświetlanych 
na ekranie Pamięć stała w naszym 
komputerze zawiera dwa takie ze¬ 
stawy Jeden z nich (podstawowy) 
mieści się pod adresem 57344. 
drugi zaś (zwany międzynarodo 
wym) - pod 52224 Widniejący po¬ 
wyżej rozkaz uaktywnia właśnie ten 
drugi generator. Różni się on od 
podstawowego w zakresie znaków 
semlgraflcznych (uzyskiwanych 
przez naciśnięcie klawisza literowe 
go wespół z klawiszem CONTROL) 
Zwykle, gdy naciskamy CONTROL 
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1 R, to pojawia się na ekranie po¬ 
zioma kreska, a przy CONTROL 
1 S - krzyżyk (itd.). Generator mię 
dzynarodowy ma tutaj odmienne 
znaki: symbole liter specyficznych 
dla różnych nacji. Niestety, próżno 
by tu szukać polskich liter z "ogon¬ 
kami”. A szkoda 

Co zrobić, żeby przywrócić "klasy¬ 
czny" wygląd znaków? I Jaki związek 
ma liczba 204 z 52224? Jak pamię¬ 
tamy. adresy zapisuje stę przy wyko¬ 
rzystaniu dwóch bajtów, gdzie star¬ 
szy ma wagę 256, co oznacza, że 
każda Jednostka starszego baj tu jest 
równa 256 Jednostkom młodszego. 
Aby więc obliczyć starszy bajt adresu 
52224, piszemy 

PRINT 52224/256 


Stąd bierze się właśnie owa taje 
mnlcza liczba 204. Podobnie moż¬ 
na ustalić co wpisać do komórki 
756 dla przywrócenia znakom nor 
malnego wyglądu: 

POKE 756,57344/256 

Korzystamy tu z faktu, że wszę 
dzle, gdzie BASIC wymaga liczby, 
można wpisać wyrażenie arytmety¬ 
czne Nie musisz więc nawet znać 
wartości, którą umieszczasz w pa¬ 
mięci, wystarczy, ze Ją prawidłowo 
obliczysz. 


Inną komórką, polecaną do 
eksperymentowania Jest bajt nr 
755, który decyduje o sposobie wy 
świetlania znaków Na wstępie 
sprawdź, co tam zwykle siedzi: 

PRINT PEEK(755) 

Liczba 2 nakazuje wyświetlać tekst 
w standardowy sposób. Spróbuj 

POKE 755,1 

Teraz komputer NIE wyświetla 
tekstu, który dotąd był przedsta¬ 
wiany w Inwersji (takie napisy uzy¬ 
skuje się po jednokrotnym naciś¬ 
nięciu klawisza LOGO, opisanego 
dwubarwnym kwadratem, w pra¬ 
wym dolnym rogu klawiatury). Skut¬ 
kiem tego znikł także kursor! Napisz 
spokojnie 


poke 755,2 

aby przywrócić normalny tryb wy¬ 
świetlania. Ciekawy efekt powoduje 
wpisanie tu liczby 6. Idea poniższego 
programu została zaczerpnięta z fil¬ 
mu Alfreda Hitchcocka pt. "Ptaki" 

10 GRAPHICS 0IPOKE 752,1 
20 POSITION RND(0)*38,RND(0)*23 
30 IF RND(0)>0.9 THEN PRINT •*"; 
40 POKE 755,8-PEEK{755) 

50 GOTO 20*1 

Komórka o adresie 752 odpowla 
da za wyświetlanie kursora, war¬ 
tość różna od zera oznacza niewl 


doczny kursor. Przeanalizuj samo¬ 
dzielnie metodę, która sprawia, ze 
pod adres 755 wstawiane są na 
przemian liczby 2 1 6 Wyrażenie 
20 ~ 1 (20 do potęgi 1) oznacza tyle 
samo co 20, ale z uwagi na nlesły 
ehaną prędkość potęgowania wpro¬ 
wadza prostym sposobem niezbędne 
opóźnienie. Spróbuj, jeżeli chcesz, 
pominąć to ~ 11 porównaj efekt. 

Nieco bardziej skomplikowane 
Jest umieszczanie danych w sło¬ 
wach, trzeba bowiem rozdzielić du¬ 
żą liczbę na dwa sąsiednie bajty. Tę 
liczbę dobrze Jest mleć schowaną 
wjakiejś zmiennej, np: 

10 GRAPHICS 0 
20 LIST 

30 X-PEEK(39972)+256*PEEK(39973) 

W tym miejscu zmienna X będzie 
zawierać adres pamięci obrazu (po¬ 
brany bezpośrednio z programu 
ANTlC-u). Rozkaz GRAPHICS słu¬ 
ży dla bezpieczeństwa, by wymusić 
standardowe ustawienie ekranu, 
zaś LIST wyświetla nieco tekstu, by 
efekt programu był lepiej widoczny 
Teraz dla zabawy zwiększ tę liczbę 

40 X-X+l 

1 wstaw Ją z powrotem na miejsce 
(zmienne L 1 H będą przechowywać 
odpowiednio młodszy I starszy baji 
słowa) 

50 H»INT(X/256) 

Funkcja INT() zwraca część cał¬ 
kowitą wartości wyrażenia, które 
stoi wewnątrz nawiasów Jest to 
poszukiwany starszy bajt adresu 

60 L-X-256*H 

Reszta pozostała z dzielenia, to 
właśnie wartość młodszego bajtu. 
Pozostaje tylko wstawić 

70 POKE 39972,LrPOKE 39973,H 

1 ewentualnie powtórzyć całą zabawę- 

80 GOTO 40 

Gotowy program wykonaj rożka 
zem RUN. Obraz odpłynie w nie¬ 
znane. Aby przerwać eksperyment, 
trzeba nacisnąć BREAK, a potem 
"w ciemno", bo na ogół nie widać 
właściwego ekranu, napisać: 

GRAPHICS 0 

Janusz B. Wiśniewski 
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Nie ma chyba komputera, którego użytkownicy nie 
znaliby tej gry Jadowita glista przemyka się między 
rozsianymi po planszy grzybkami. Jeśli Clę dopadnie, 
toś przepadł Na szczęście nie Jesteś bezbronny Usta 
wlasz działo klawiszami + 1 *, strzelasz naciskając 
SHIFT.. Lecz co to? Trafienie nic zabija robala, lecz 
tylko skraca go o Jeden segment Bestia Jest coraz bli¬ 
żej! Znów strzelasz. 1 zjiowu... Uff Udało się Ale to do¬ 
piero pierwszy etap Teraz grzybków jest więcej, coraz 
trudniej przewidzieć ruchy potwora Możesz tez grac 
Joystickiem, jeśli wolisz. Tylko go nie złam! Ta gra na¬ 
prawdę wciąga. Do uzyskania samodzielnego progra¬ 
mu użyj Zgrywusa + (str. 7). 



IJ 1000 rem *-’ 

WQ 1002 REM : "ROBAL" 

VB 1004 REM : autor: Dariusz Zolna 
YY 1006 REM : (c) 1992 Tajemnice ATARI 

JP 1008 REM *- 

RA 1010 DATA FFFF0080CE8620588420858120 
EN 1020 DATA E783A9008D0485201284A9038D 
JB 1030 DATA 0485A9008D03858D0A85A00199 
VF 1040 DATA 0B85 8810FA202F8 3200B84AD0F 
ZG 1050 DATA D24A4A4A2D8402D010AD0085D0 
ET 1060 DATA 0BA9118D0085ADFC848DFF84AE 
YE 1070 DATA 0085F03ACA8E0085ADFF841869 
WG 1080 DATA 0C20D984A27CB1B0F01EAACD09 
JF 1090 DATA 85D00CA901207381A20F8E0285 
QC 1100 DATA A200C954D003205A82A9008D00 
FU 1110 DATA 85 8A91B0A02 8A90091B0A2FFAD 
MZ 1120 DATA F102F003AEF202AD7802C90FF0 
CJ 1130 DATA 0F2904D002A206AD78022908D0 
XK 1140 DATA 02A2078EF2028AC94090034DBE 
CA 1150 DATA 02C91CD0034C6581C936D00920 
IK 1160 DATA 4F82209B844C0080C906D003CE 
BG 1170 DATA FC84C907D003EEFC84ADFC8410 
TU 1180 DATA 02A900C9119002A9108DFC84A9 
DE 1190 DATA 0CA21120D984A010B1B0C958D0 
ND 1200 DATA 02A90091B08810F3ACFC84A958 
JN 1210 DATA 91B0207B82A007B9D786C911D0 
BJ 1220 DATA 0EB9CF8638E90CCDFC84D0034C 
EV 1230 DATA E3818810E8ADE686D003202F83 
AK 1240 DATA A200AD0185F007CE018509E0A2 
JN 1250 DATA C88D01D28E00D2A200AD0285F0 
GM 1260 DATA 07CE02850900A2C88D05D28E04 
BO 1270 DATA D2A200AD0085F00538E902A232 
MH 1280 DATA 8D03D28E02D22085814C298020 
XO 1290 DATA 9B84204F82A9FF8DFC026C0A00 
BD 1300 DATA F8186D0C858D0C85A9006D0B85 
QU 1310 DATA 8D0B85D860A913A20220D984A0 
LQ 1320 DATA 03A201BD0B8520AA81CA10F7A9 


YY 1330 DATA 1BA213A00020D984C8AD0A8520 
PG 1340 DATA AA816048290F099091B088684A 
ED 1350 DATA 4A4A4A290F099091B08860A90C 
JG 1360 DATA A20520D984A20CA010B1B0CD06 
NR 1370 DATA 85F002A90091B08810F2A928A0 
*MA 1380 DATA 0020C984CA10E66020E783204F 
GL 1390 DATA 82AD09858D068520BF81A90EA2 
DR 1400 DATA 0820D984ADF88485B2ADF98485 
UJ 1410 DATA B3A204A00DB1B291B08810F9A9 
GY 1420 DATA 28A00020C984A90EA00220C984 
WR 1430 DATA CA10E6A97F8D00D2A9EF8D01D2 
OP 1440 DATA A031200B848810FAA9BF8D02D2 
BW 1450 DATA A9EF8D03D2A04A200B848810FA 
DY 1460 DATA 204F82201284209B844C0080A0 
TO 1470 DATA 07A9009900D28810FA60A007B9 
NB 1480 DATA DE8699DF86B9CE8699CF86B9D6 
EG 1490 DATA 8699D78688D0EBA90F8D0185A9 
FJ 1500 DATA 0A4C7381A90BA20420D984A20D 
GM 1510 DATA A012B1B0C954D002A90091B088 
HD 1520 DATA 10F3A928A00020C984CA10E7A0 
GV 1530 DATA 079848B9DF8648B9D786AAB9CF 
JI 1540 DATA 8620D9846891B068A88810E8CE 
FF 1550 DATA 0585300160AD04858D0585A000 
XX 1560 DATA B9D08699CF86B9D88699D786C8 
ZE 1570 DATA C00790EFADD686186DFD84AEDE 
VB 1580 DATA 8620D984A000B1B0F03BC958D0 
UM 1590 DATA 0568684CE381ADFD8449FE8DFD 
EV 1600 DATA 84ADDE86186DFE84C904B00AAD 
JY 1610 DATA FE8449FE8DFE84A9048DDE86C9 
FS 1620 DATA 12900AADFE8449FE8DFE84A911 
RM 1630 DATA 8DDE8660ADD686186DFD848DD6 
PI 1640 DATA 8660204F82A9008D068520BF81 
VD 1650 DATA EE0385AD0A85F81869018D0A85 
AY 1660 DATA D8AD0385C9099005A901CE0485 
RT 1670 DATA 8D0385AD04851002A9008D0485 
VD 1680 DATA 8D0585A9008D0085AD0AD22901 
OU 1690 DATA AABD0D858D0985AD038529070A 
ET 1700 DATA A89848AD0AD2290F186903AAAD 
SG 1710 DATA 0AD229078D0085AD0AD2290518 
UA 1720 DATA 6D0085690D20D984A002B1B0D0 
TU 1730 DATA DB8810F9A9008D0085A202A02A 
TT 1740 DATA B1B0D0CB88CA10F8A202A052B1 
JZ 1750 DATA B0D0BF88CA10F8A029AD098591 
HJ 1760 DATA B0AD0AD2293F09408D00D2A9EF 
RU 1770 DATA 8D01D2200B84204F82200B8468 
VJ 1780 DATA A8881095A0079818690C99CF86 
BJ 1790 DATA A90499D786A95499DF868810EC 
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1910 DATA 0220C984A928A00020C984CA10 
1920 DATA DB60A90AA20220D984ADF68485 
1930 DATA B2ADF78485B3A211A014B1B291 
1940 DATA B08810F9A928A00020C984A915 
1950 DATA A00220C984CA10E66018798000 
1960 DATA 99B000A90079B10099B1006018 
1970 DATA 655885B0A900655985B1A0008A 
1980 DATA D00160A92820C984CAD0F86000 
1990 DATA 0F85E786898600000001010000 
2000 DATA 0000000000000000000000007B 
2010 DATA 40D1D1B0F5EEEBF4F99A909090 
2020 DATA 90D2D2D2D2D2D2C5C5D1C35252 
2030 DATA 52525252525252525252525252 
2040 DATA 5252DAC5FC7C00000000000000 
2050 DATA 000000000000000000007C FC FC 
2060 DATA 7C00D9C9CB000000D959000000 
2070 DATA 00D95900007CFCFC7C00D980C9 
2080 DATA 49C9CBD9C9CB49C9C9D9590000 
2090 DATA 7CFCFC7C00D959804B80C9D980 
2100 DATA C94B80804B80C9007CFCFC7C00 
2110 DATA 00000000000000000000000000 
2120 DATA 0000007CFCFC7C000000000000 
2130 DATA 00000000000000000000007CFC 
2140 DATA FC7C00000000032175746F721A 


1800 DATA A9008DDF86A9018DFE848DFD84 
1810 DATA 60A511C514F0FC60AD0FD22908 
1820 DATA F0F9AD1FD029014D8402D0EFA9 
1830 DATA FF8DFC02 200B84 2 9 7FD008AD0A 
1840 DATA D229038D0485207B82ADFC02C9 
1850 DATA 1CD00568684C6581AD0FD22908 
1860 DATA F00AAD1FD029014D8402F0D160 
1870 DATA A90AA20220D984ADF48485B2AD 
1880 DATA F58485B3ADF68485B4ADF78485 
1890 DATA B5A211A014B1B091B4B1B291B0 
1900 DATA 8810F5A915A00420C984A915A0 



GD 2150 DATA 0000000000007CFCFC7C000000 
ZI 2160 DATA 00000300000000000000000000 
ZK 2170 DATA 007CFCFC7C0000246172697573 
XK 2180 DATA 7A003A6F6C6E6100007CFCFC7C 
QD 2190 DATA 000011190D12100E11110E1119 
QQ 2200 DATA 191 i00007CFCFC7C0000000000 
IO 2210 DATA 0000000000000000000000007C 
FC 2220 DATA FCFC7C000D236F707972696768 
NL 2230 DATA 74000863090D007CFCFC7C0034 
YG 2240 DATA 616A656D6E6963650021746172 
XR 2250 DATA 69007CFCFC7C00000000000000 
JV 2260 DATA 000000000000000000007CFCFC 
KI 2270 DATA C5525252525252525252525252 
HZ 2280 DATA 5252525252D1FCDAD2D2D2D2D2 
DW 2290 DATA D2D2D2D2B0EFFAE9EFED9AD2D2 
TH 2300 DATA D2C30000000000000000000000 
CQ 2310 DATA 00000000C9D5D5D5D5D5D5D5D5 
AY 2320 DATA D5D5CF000059ABAFAEA9A5A380 
CR 2330 DATA A7B2B9D90000CB555555555555 
YB 2340 DATA 55555555CC0000000000000000 
HN 2350 DATA 00000000000000E002E1020080 
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oferujemy dla Twojego Atari: 


ROBBO wspaniała gra zręcznościowo 
logiczna. Cena - 27 000 zł 

MISJA, F RED zestaw dwóch gier zręczno¬ 
ściowych z doskonałą muzyką. 

Zmagania komandosa w tajnej MISJI; 
Wędrówka z FREDEM przez pełną za¬ 
gadek i niebezpieczeństw krainę. 

Cena zestawu 37 000 zł 
LASERMANIA, 

ROBBO KONSTRLKTOR 
Efektowna gra logiczna polegająca na po¬ 
konaniu labiryntu komnat przy pomocy 
umiejętnego sterowania promieniem lasera. 
Program użytkowy pozwalający na two¬ 
rzenie gotowych, samodzielnie działają¬ 
cych gier 

Cena zestawu 37 000 zł. 

AUTOMAT PERKUSYJNY 

doskonały do tworzenia "muzyczek" 
komputerowych Sprzedawany wraz z in 
strukcją użytkownika 
Cena programu 40 000 zł 
SAPER gra strategiczna 
Cena gry 36.000 zł 

A,D.2044 wspaniała gra przygodowa 

z tekstem 

Cena gry na dysku 36.000 zł. 

Cena gry na kasecie. 38 000 zł 
CHAOS MUSIC COMPOSER 
pakiet zawiera program do komponowa 
ma, moduł odtwarzający (można go dołą¬ 
czyć do własnych programów) oraz 
wyczerpującą instrukcję użytkownika 
Cena pakietu 40 000 zł 
PANTHER 

wielofunkcyjny edytor tekstów pozwala¬ 
jący drukować po jxilsku na wszystkich 
popularnych drukarkach. W sprzedaży 
pod koniec marca 1992. 

Cena pakietu. 40 000 zł. 

HANS KLOSS 

- gra przygodowo - zręcznościowa. Poszu¬ 
kiwania planów tajnej brom w bunkrze 
Wolfschanze Planowane rozpoczęcie 
sprzedaży po 15 marca 1992. 

Cena gry 36.000 zł. 


r£&zamaaigia£££a, prosimy kierować to 

L.K. AVALON 
skr. poczt. 46 
38-100 Strzyżów 
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Najlepszy na "małe” Atan zestaw do progra¬ 
mowania w języku asemblera. W jego skład 
wchodzą. 

• QUICK ASSEMBLER zintegrowany pa 
kiet edytora, asemblera i mim debugera 

U regulowanie należności następuje przy od¬ 
biorze przesyłki. Zamówienia, które powin¬ 
ny zawierać wyszczególnienie rodzaju 
nośnika (kaseta lub dysk) oraz dokładny ad- 


• BUG HUNTER nowoczesny debuger 

całoekranowy 

• XL FRIEND edytor tekstów, tabela ko¬ 
dów ASCII, ekranowych i klawiatury kal¬ 
kulator i monitor pamięci 

• Zestaw procedur bibliotecznych ułatwiają¬ 
cych naukę programowania 

• Podręcznik zawierający instrukcje do 
wszystkich wymienionych programów 
oraz krótki kurs programowania 

Cena zestawu: 60 000 zł. 

Wymienione niżej programy me 
powstały w naszej firmie. Zachęcamy 
jednak do ich zakupu. 

• MIECZE VALDGIRA - przygodowa 
gra fantasy z doskonałą muzyką 

Cena gty 37 000 zł 

• BATTLE SHIPS - kto z nas me grał 
w 'okręty"’ Tutaj zasady te same, lecz 
przeciwnik i oprawa znacznie lepsza. 
Cena 39 000 zł. 

• TacTic - gra logiczna, recenzja we¬ 
wnątrz numeru. Cena 38.000 zł 

• KOLONY gra ekonomiczna, recenzja 

wewnątrz numeru. Cena 37 000 zł 

• GEOGRAFIA - prosty program edukacyj 
ny obejmujący niektóre zagadnienia geo¬ 
grafii gospodarczej Polski. 

Cena 34 000 zł. 

• ORTOGRAFIA któż me ma z nią kłopo¬ 

tów? Ten program może pomóc i wiele na¬ 
uczyć. Cena 38.000 zł. 

• VIDEOGRAPH - proste narzędzie do 
tworzenia czołówek filmów VIDEO 
wraz z instrukcją użytkownika 

Cena 42.000 zł. 

• KULT - najnowsza gra zręcznościowa. 
Pomysł jakby znany (ZYBEX), ale wy 
konanie o wiele lepsze Cena 38,000 zł. 

• MÓZGPROCESOR - wznowienie zna 

nej gry tekstowej. Cena 40 000 zł. 

Serdecznie przepraszamy za 
opóźnienia w realizacji niektó¬ 
rych zamówień. Wszyscy otrzy¬ 
mają oczekiwane programy, 
w miarę wywiązywania się auto¬ 
rów z podjętych zobowiązań. 
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